可以通过重载方法来解决。 我们知道Tbutton是由TButtonControl类派生的,但在封装时却没有Color属性,这时,只能由我们加入color属性。 unit Unit2;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type Tmybutton=Class(TButtonControl) published property Color; //加入color end; implementation ... 完成后,可以自由设置颜色属性了。如: mybutton:=Tmybutton.Create(self);
mybutton.Parent:=form1; mybutton.Left :=0; mybutton.Top :=10; mybutton.Width:=200; mybutton.Height :=100; mybutton.Color:=clGrayText; 这时就实现更改按钮的颜色了。
不行啊,
button没有,但可以用bitbtn和speedbutton阿。