procedure TForm1.FormCreate(Sender: TObject);
begin     adotable1.First;
   while not adotable1.Eof do
    begin
      wwdata1.Items[26].PickList.items.add(adotable2.fieldvalues['GGMC']) ;
        adotable1.Next;    end;   end;
我想问怎样能双击弹出下拉列表  不去点标志弹出下拉列表
急请高手请教