ComboBox组件添加Item问题

Question

我把一个TQuery查询（只查一个字段"车型"）查到的结果（比如有8项）想添加到
ComboBox组件列表去，即用ComboBox显示所查到的车型结果。如何实现？？？
给个参考代码？？

Answer 1

procedure TForm1.ComboBox2Enter(Sender: TObject);
begin
  (sender as Tcombobox).Clear;
  ADOTable2.First;
  while not ADOTable2.Eof do
    begin
      (sender as Tcombobox).Items.Add(ADOTable2.Fields.Fields[0].asstring);
      ADOTable2.Next;
    end;
end;

Answer 2

楼上的对，或者在drawdown时间里面写也可以，就是点黑色三角的事件里面写！

Answer 3

你可以用dblookupcombobox，直接就可以的到你的数据，不用代码。
不然就用楼上说的
不过可以在form1.onshow中添加如下代码：
  combobox2.clear;
  ADOTable2.First;
  while not ADOTable2.Eof do
    begin
      combobox2.Items.Add(trim(ADOTable2.Fields.Fields[0].asstring));
      ADOTable2.Next;
    end;