UC知道delphi combobox问题
来源：百度知道 编辑：UC知道 时间：2024/06/18 15:18:20
delphi combobox items button
比如combobox的items属性里有（1-9）9个选择。选择一个按一下button就执行一个过程。代码怎么写啊！
也可以理解为，我把9个Button集合在combobox里，9个Button用items里面的9段文字代替，每选择一段文字就相当于选择一个按钮，按下button就等于按下了这个按钮！
我自己也憋出来个。case cbb1.ItemIndex of
0:
begin
Button1.Click;
end;
1:
begin
Button2.Click;
end;
2:
begin
Button3.Click;
end;
3:
begin
Button4.Click;
end;
end;
比如combobox的items属性里有（1-9）9个选择。选择一个按一下button就执行一个过程。代码怎么写啊！
也可以理解为，我把9个Button集合在combobox里，9个Button用items里面的9段文字代替，每选择一段文字就相当于选择一个按钮，按下button就等于按下了这个按钮！
我自己也憋出来个。case cbb1.ItemIndex of
0:
begin
Button1.Click;
end;
1:
begin
Button2.Click;
end;
2:
begin
Button3.Click;
end;
3:
begin
Button4.Click;
end;
end;
procedure TheFirstEvent; //第一个过程
begin
ShowMessage('执行第一个过程');
end;
procedure TheSecondEvent; //第二个过程
begin
ShowMessage('执行第二个过程');
end;
添加combobox的onchange 事件，在里面写入如下代码：
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: TheFirstEvent;
1: TheSecondEvent;
2: //...
//....
end;
end;