delphi combobox1选择值后,在另一个combobox中显示所有combobox1的值的颜色
比如说在combobox1中选择衣服样式,要怎样在combobox2中显示combobox1中的衣服的所有颜色...
比如说在combobox1中选择衣服样式,要怎样在combobox2中显示combobox1中的衣服的所有颜色
展开
5个回答
展开全部
可以在onChange的事件中,改变combobox2的颜色,知亩
比如combobox1中的颜简猛迟色有:clGreen, clRed,clYellow,
事件中可以这样写:
procedure Tform1.ComboBox1Change(Sender: TObject);
begin
combobox2.Color := combobox1.text; // combobox1选中拦李的颜色
end;
比如combobox1中的颜简猛迟色有:clGreen, clRed,clYellow,
事件中可以这样写:
procedure Tform1.ComboBox1Change(Sender: TObject);
begin
combobox2.Color := combobox1.text; // combobox1选中拦李的颜色
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在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;
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;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你是不是需要一个能显示颜色的列表框??
追问
对
追答
使用 DELPHI 自带的控件 TColorBox
使用 Items.Clear 清空原色,
ColorBox1.Items.AddObject('clRed',TObject(clRed));依次加入自己需要的颜色
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
问题描述不清
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询