请问如何动态设置控件的自定义color属性?(20分)

  • 主题发起人 主题发起人 LeNgHoSt
  • 开始时间 开始时间
L

LeNgHoSt

Unregistered / Unconfirmed
GUEST, unregistred user!
我用 label1.color:=$ff00ff00 不起作用
应该怎样?
 
label color看得出来吗,label.font.color吧!
 
一样的都看不出来
我的意思是 color:= 的右边应该是什么数据?除了clred,clblue……
 
TColor($ff00ff00);
 
一个表示颜色的整数,
或者rgb值
 
创造自定义颜色
CoDelphi.com

摘 要:创造自定义颜色
关键字:颜色 GUI TColor
类 别:用户界面


当设置控件的颜色属性时,我们被限制只能使用预定义颜色(如:clWhite, clRed...)吗?
可以自己定义TColor类型的常量;具体如下:
{--开始--}
const
clKhaki = TColor($ADAE80);

{随后...}
procedure TForm1.Button1Click(Sender: TObject);
begin

Self.Color := clKhaki;
//现在你就有一个褐色的窗体了!
end;

{--结束--}
正如你所见, 你需要做的是: 定义一个描述自定义颜色(16进制)常量;把它赋给TColor类型。瞧!你有了新的颜色。如果你知道如何在HTML中定义颜色,那么只要把原来的#号替换为$号 (Pascal的16进制标识符)

投稿人:CoDelphi.com 投稿日期:2001-5-12 15:38:00
 

Similar threads

D
回复
0
查看
825
DelphiTeacher的专栏
D
D
回复
0
查看
831
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部