选择combobox的items的选项来触发各个选项对应的事件,可以尝试以下示例代码:
procedure TForm2.Button1Click(Sender: TObject);
begin
ComboBox1.ItemIndex := 3;//选择combobox的第4个选项
ComboBox1Change(Self); //触发事件
end;
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
ShowMessage(ComboBox1.Items[ComboBox1.ItemIndex]);
end;