将列的Propertics改为Imagecombobox
2.设置对应的Picklist到desciption及key到Value中,如下图所示.
动态增加如下所示:
while not tmpquery.Eof do
begin
PItem:=AItems.Add;
Pitem.Description:=TmpQuery.fieldbyname(APickField).AsString;
PItem.Value:=TmpQuery.FieldByName(AKeyfield).AsString;
TmpQuery.Next;
end;