本文整理自网络，侵删。
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 获取窗口矩形的四种方法: getclientrect、clientrect、getwindowrect、boundsrect
更多相关阅读请进入《Delphi》频道 >>
