delphi中dbgrid如何实现picklist功能

Question

procedure TForm1.FormShow(Sender: TObject);
begin
   with dm.ADOQuery1 do
   begin
    dm.ADOQuery1.Close;
    dm.ADOQuery1.SQL.Clear;
     dm.ADOQuery1.SQL.Add('select * from xue');
   dm.ADOQuery1.Open;
     end;
    while not (dm.ADOQuery1.Eof) do
   begin
    dbgrid1.Columns[index].PickList.AddObject(dm.ADOQuery1.Fields[0].AsString);
     next;
     end;
     end;
我想在DBGrid中实现picklist功能,这是我自己写的一段程序,执行有错误,主要是dbgrid1.Columns[index]中的index是什么呀输入什么都不好用 ,不知道是不是我的程序又问题  请大家看看

Answer 1

你是第几列有picklist，index就是几
而且再这个代码之前dbgrid的数据集要先打开

Answer 2

如表格有编号,名称,数量三列,名称列有picklist,则是dbgrid1.columns[1].picklist

Answer 3

你可以dbgrid1.columns.count得到列的总数，然后循环为PickList加载内容即可。