xanxov
09-01-2013, 12:41:38
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.
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.