ボタンのキャプションで部分的に文字の書式を変更するには? (ID：9990)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

TButtonからは無理です。TBitBtn使わせてください。
コンポーネント化すると便利そうですね。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons; //, XPMan

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    //XPManifest1: TXPManifest;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private 宣言 }
    bmp:TBitmap;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
bmp.Width:=BitBtn1.Width-5;
bmp.Height:=BitBtn1.Height-5;
bmp.Canvas.Pen.Color:=clBtnFace;
bmp.Canvas.Brush.Color:=clBtnFace;
bmp.Canvas.Rectangle(0,0,bmp.Width,bmp.Height);

for i:=0 to 20 do
begin
  bmp.Canvas.Font.Color:=RGB(Random(255),Random(255),Random(255));
  bmp.Canvas.Font.Size:=Random(4)+10;
  bmp.Canvas.TextOut(Random(bmp.Width-15)+5,Random(bmp.Height-15)+5,'B');
end;

BitBtn1.Glyph:=bmp;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
bmp:=TBitmap.Create;
BitBtn1.Margin:=0;
BitBtn1.Spacing:=0;
BitBtn1.Caption:='';
BitBtn1.Height:=65;
BitBtn1.Width :=150;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
bmp.Free;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る