Delphi 自定义Colorbox只显示指定颜色项目 Colorbox显示中文颜色名称


本文整理自网络,侵删。

 procedure TForm1.FormCreate(Sender: TObject);
var
a,b,c:cardinal;
begin
ColorBox1.Style:=[cbCustomColors];
a:=clBlack;
ColorBox1.Items.AddObject('黑色',TObject(a));
a:=clMaroon;
ColorBox1.Items.AddObject('栗色',TObject(a));
a:=clGreen;
ColorBox1.Items.AddObject('绿色',TObject(a));
a:=clOlive;
ColorBox1.Items.AddObject('橄榄色',TObject(a));
a:=clnavy;
ColorBox1.Items.AddObject('深蓝色',TObject(a));
a:=clPurple;
ColorBox1.Items.AddObject('紫色',TObject(a));
a:=clTeal;
ColorBox1.Items.AddObject('蓝绿色',TObject(a));
a:=clGray;
ColorBox1.Items.AddObject('灰色',TObject(a));
a:=clSilver;
ColorBox1.Items.AddObject('银色',TObject(a));
a:=clRed;
ColorBox1.Items.AddObject('红色',TObject(a));
a:=clLime;
ColorBox1.Items.AddObject('酸橙色',TObject(a));
a:=clYellow;
ColorBox1.Items.AddObject('黄色',TObject(a));
a:=clBlue;
ColorBox1.Items.AddObject('蓝色',TObject(a));
a:=clFuchsia;
ColorBox1.Items.AddObject('紫红色',TObject(a));
a:=clAqua;
ColorBox1.Items.AddObject('浅绿色',TObject(a));
a:=clWhite;
ColorBox1.Items.AddObject('白色',TObject(a));
a:=clMoneyGreen;
ColorBox1.Items.AddObject('钱绿色',TObject(a));
a:=clSkyBlue;
ColorBox1.Items.AddObject('天蓝色',TObject(a));
a:=clCream;
ColorBox1.Items.AddObject('奶油色',TObject(a));
a:=clMedGray;
ColorBox1.Items.AddObject('中灰色',TObject(a));    //也可=RGB(xxx,xxx,xxx)
Colorbox1.ItemIndex:=0;
end;
procedure TForm1.ColorBox1Change(Sender: TObject);
begin
color:=colorbox1.Selected;
end;

相关阅读 >>

Delphi 如何识别应用程序没有响应

Delphi 字符串对比比较

Delphi for 循环 to和downto的理解

Delphi firedac 下的 sqlite [8] - 自定义函数

Delphi 2009 泛型容器单元(generics.collections)[4]: tdictionary<t>

Delphi splitstring 字符串分割成字符串组

Delphi调用javascript解析json

Delphi中dbgrid控件数据库点击某列按序排列

Delphi 双击隐藏tabsheet

Delphi 获取当前系统语言环境(en,fr,ja等)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...