如何制作颜色下拉框?????????????????

Question

如何制作颜色下拉框????????????????? DELPHI自带的颜色下拉框是用英文的和不能够自定义颜色， 请问如何制作自己的颜色下拉框？？？？

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ItemsValue : String ;
begin
  ColorBox1.Items.Insert(0,'添加自定义');
end;procedure TForm1.ColorBox1Change(Sender: TObject);
var
  vColorDialog : TColorDialog;
begin
  if ColorBox1.ItemIndex = 0 then
  begin
    vColorDialog := TColorDialog.Create(Nil);
    vColorDialog.Execute;
  end;
end;_____________________________________________________________________暮春三月,羊欢草长,天寒地冻,问谁饲狼?人心怜羊,狼心独怆,天心难测,世情如
霜……

Answer 2

ColorBox1.Style下的cbCustomColor设置为True;

Answer 3

ColorBox1.Style.cbCustomColor:=True;
在需要自定义颜色是,点击第一个选项.