combobox有click事件吗
如下代码为，如果form2的capition为 化学成份查询 以及combobox1.text为混合料厂，那么点击combobox2的时候，自动添加数据列，运行时其下拉框中并未出现数据，求其原因，代码应该没什么问题的，

Delphi(Pascal) code

procedure TForm2.ComboBox2Click(Sender: TObject);beginif (form2.Caption='化学成份查询') and (form2.ComboBox1.text='混合料厂') thenbeginform2.ADOQuery1.Close;form2.ADOQuery1.SQL.Clear;form2.ADOQuery1.SQL.Add('select distinct 牌号 from 混合料化成');form2.ADOQuery1.Open;form2.ComboBox2.Clear;while not form2.ADOQuery1.Eof dobeginform2.ComboBox2.Items.Add(form2.ADOQuery1.fieldbyname('牌号').AsString);form2.ADOQuery1.Next;end;endelsecombobox2.Clear;end;end.

[解决办法]
放到 combobox的onDropDown事件里就可以了,表示下拉时才会加载。
[解决办法]

探讨

onchang事件中执行比较好，还有“form2.Caption='化学成份查询'”这个判断条件建议换换。。。。