Question

delphi怎么写选择combobox的items的选项来触发各个选项对应的事件，这该怎么写啊。

Answer 1

选择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;

追问

你好，我的意思是这个，比如 items里面有三个选项，分别是 好 中等 差，当选好的时候，我的dbgrid 显示成绩是 好 的学生信息，选中等 则显示成绩 中等 的信息。这样应该怎么写，麻烦了 。

追答

在 ComboBox 选项选中时，假设数据表中有字段“成绩等级”，则可以编写 SQL 语句，更新 DBgrid 的数据源（通常是 Query 组件），示例代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var s, sql :string;
begin
   s := ComboBox1.Items[ComboBox1.ItemIndex];
   sql := 'Select * from 数据库名 where 成绩等级="' +s+ '"';
   ADOQuery1.Close;
   ADOQuery1.SQL.Text := sql;
   ADOQuery1.Open;
end;