通过遍历循环数据库的方式添加例：
While not qryPerson.Eof do
begin
dgMain.Columns[0].PickList.Add(qryPerson.FieldByName(‘Name‘).AsString);
qryPerson.Next;
end
Delphi dbgridEh对某一列动态添加PickList
原文：https://www.cnblogs.com/victory97/p/14805798.html
