本文整理自网络,侵删。
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 firedac 下的 sqlite [8] - 自定义函数
Delphi 2009 泛型容器单元(generics.collections)[4]: tdictionary<t>
更多相关阅读请进入《Delphi》频道 >>