16,747
社区成员
发帖
与我相关
我的任务
分享如何自己定义 窗体颜色 ?
请问如何自己定义 窗体颜色 ? 例如：
form1.color：=clBtnFace；
但是form中color属性的取值有限。
可否用其他方式给color 赋值 比如 用十六进制来代表一个颜色 然后付值给 form1.color
form1.color：=clBtnFace；
但是form中color属性的取值有限。
可否用其他方式给color 赋值 比如 用十六进制来代表一个颜色 然后付值给 form1.color
...全文
请发表友善的回复…
发表回复
johnzcq 2006-04-20
- 打赏
- 举报
谢谢 ！ 我就是 不知道 怎么用 十六 进制表示一个颜色啊 现在明白了
cuteant 2006-04-20
- 打赏
- 举报
请问您的问题在哪里？
Form1.Color := $000000;
这样不就是十六进制的数据了么？
Form1.Color := $000000;
这样不就是十六进制的数据了么？
postren 2006-04-20
- 打赏
- 举报
Form1.Color := RGB(1, 2, 3);
RGB函数可以返回任何真彩色
RGB函数可以返回任何真彩色
老之 2006-04-20
- 打赏
- 举报
放一个ColorDialog控件，运行时可以添加自定义颜色
procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color:=ColorDialog1.Color;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color:=ColorDialog1.Color;
end;
