Delphi dbgridEh对某一列动态添加PickList

通过遍历循环数据库的方式添加例：

While not qryPerson.Eof do

begin

  dgMain.Columns[0].PickList.Add(qryPerson.FieldByName('Name').AsString);

  qryPerson.Next;

end