在SpeedButton上绘图

 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;