Question

delphi combobox1选择值后，在另一个combobox中显示所有combobox1的值的颜色

比如说在combobox1中选择衣服样式，要怎样在combobox2中显示combobox1中的衣服的所有颜色

Answer 1

可以在onChange的事件中，改变combobox2的颜色，
比如combobox1中的颜色有：clGreen, clRed,clYellow，
事件中可以这样写：
procedure Tform1.ComboBox1Change(Sender: TObject);
begin
combobox2.Color := combobox1.text; // combobox1选中的颜色
end;

Answer 2

在onChange的事件中，改变combobox2的值，
procedure Tform1.ComboBox1Change(Sender: TObject);
begin
with ADOQuery1 do
begin
sql.clear;
sql.add('select color from table where 样式=衣服样式')
while not eof()
combobox2.add('fieldbyname('color').asstrng');
next;
end;
end;

end;

Answer 3

你是不是需要一个能显示颜色的列表框？？

追问

对

追答

使用 DELPHI 自带的控件 TColorBox
使用 Items.Clear 清空原色，
ColorBox1.Items.AddObject('clRed',TObject(clRed));依次加入自己需要的颜色

Answer 4

你问的太含糊了，理解不了。

Answer 5

问题描述不清