[Lazarus-es] Componente PickList

[Anxo Vázquez]

TEngo un dbgrid con un picklist en la primera columna, para llenarlo uso el
siguiente código:

procedure TfrmPedVen.dbgLinFacCellClick(Column: TColumn);
begin
ZqryArt.Open;
ZqryArt.First;
dbgLinFac.Columns[0].PickList.Clear;
while not ZqryArt.EOF do
begin
dbgLinFac.Columns[0].PickList.Add(ZqryArt.FieldByName('codigo').AsString);
ZqryArt.Next;
end;
ZqryArt.Close;
end;

El caso es que el picklist no carga hasta que se escribe algo en la celda.
He probado con varios eventos sin resultado. Muchas gracias.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130109/3e03b651/attachment-0002.html>