关于按钮文字的颜色
我在delphi 7里不能改按钮上文字的颜色,用Button1.Font.color:=clyellow也不行,但是标签啊,编辑框里面的就能改,到底是怎么回事啊?怎么改?请大家指点
可以通过重载方法来解决。 我们知道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; 这时就实现更改按钮的颜色了。