创造自定义颜色
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