TSpeedButton是不支持自绘的,即使为它创建一个TControlCanvas,画上去的图也保持不了。
于是想到了SpeedButton的Glyph属性。
不错,Glyphi装的可不是TBitmap么?直接画它不就得了。
赶紧Test一下,果然,OK。
以下是测试代码:
procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.Assign(bt1.Glyph);
bt1.Glyph := nil;
with bmp.Canvas do
begin
Brush.Color:=clRed;
Brush.Style := bsSolid;
FillRect(Rect(2,12,14,16));
end;
bmp.Free;
end;