如何写一个自己的Button能够改变字体颜色

Question

给段代码，谢谢了

Answer 1

TButoon不可以改变的，这是由Windows控制的，除非你用BitBtn，代码如下：
const
  Colors:array[1..5] of TColor=(clRed,clBlue,clBlack,clWhite,clYellow);implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  BitBtn1.Font.Color:=Colors[Random(6)];
end;

Answer 2

继承Canvas,或者设置Canvas.handle:=GetDC(Button.handle)!利用Canvas输出自定义的文字！当然如果可以自己从TGraphicControl继承，这样直接继承有Canvas！实质就是利用GDI进行绘图！

Answer 3

请注意：该结贴了！否则，你有机会赢取CSDN监狱七日游！    ----CSDN管理员        ^-^