如何自己定义窗体颜色 ?

johnzcq 2006-04-20 08:02:24

请问如何自己定义窗体颜色 ? 例如：
form1.color：=clBtnFace；
但是form中color属性的取值有限。
可否用其他方式给color 赋值比如用十六进制来代表一个颜色然后付值给 form1.color

...全文

324 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

johnzcq 2006-04-20

打赏
举报

谢谢！我就是不知道怎么用十六进制表示一个颜色啊现在明白了

cuteant 2006-04-20

打赏
举报

请问您的问题在哪里？

Form1.Color := $000000;

这样不就是十六进制的数据了么？

postren 2006-04-20

打赏
举报

Form1.Color := RGB(1, 2, 3);
RGB函数可以返回任何真彩色

老之 2006-04-20

打赏
举报

放一个ColorDialog控件，运行时可以添加自定义颜色
procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color:=ColorDialog1.Color;
end;

程序源码： Dim A(5) As String Private Sub Combo1_click() A(5) = Combo1.Text End Sub Private Sub Command1_Click() CB A(5), Form1 End Sub Private Sub Form_Load() Dim i As Intege...

一、前言很多时候需要有一个控件，能够替代容器控件，自动容纳多个widget，自适应宽高，然后提供滚动条功能，这就必然需要用到QScrollArea控件，可设置各个子面板的间距等，也在很多系统中用到，比如温湿度设备面板，有几百个温湿度设备，需要一个容器放置，自动产生滚动条，可以设置面板的固定宽高或者自适应拉伸，其实就是放了表格布局+弹簧来设置。在后期的Qt内置控件的研究过程中，发现QListWid...

只需要在属性页面填上对应的rgb即可。

程序源码： Dim A(5) As String Private Sub Combo1_click() A(5) = Combo1.Text End Sub Private Sub Command1_Click() CB A(5), Form1 End Sub Private Sub Form_Load() Dim i As Integer A(...

Dynamics 365(online) V9.0版本已来(目前只是online,on-premises似乎还没有时间表)，给我们带来了很多新的特性，据微软官方说法，9.0版本进行了底层的重构，变化还是非常大的，我们先从新特性认识开始，本系列将对其中的一些特性做分别的介绍。本篇要介绍的是sub-grid如何自定义表头颜色，先来看张9.0版的表单样式，初看之下就能发现变化，section加了

语言基础/算法/系统设计

16,741

社区成员

33,233

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章

如何自己定义 窗体颜色 ?

如何自己定义窗体颜色 ?