如何做一个有颜色的按钮，不用第SAN方控件

Question

如上

Answer 1

用speedbutton，上面加张彩色图片，呵呵

Answer 2

自己重新画按钮或者用panel代替，她有color属性
模仿按钮
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1.BevelOuter:=bvLowered;
end;procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1.BevelOuter:=bvRaised
end;

Answer 3

to:esu(ESU) :达到效果，可以，THANKS!
继续收集其它办法。