Desplegar PickList por código

[Jonnathan]

Buen dia a todos, quisiera saber si alguien tiene idea del código en Delphi necesario para hacer que se despliegue el "PickList" de la celda de un DBGrid. Ya se que se despliega presionando "Alt + Tecla Abajo", pero me gustaria hacerlo al presionar la tecla "Enter" ya que es para un programa de facturación y me gustaría ponerle las cosas mas facil al usuario en caja para ganar tiempo.

P.D.: Disculpen si este hilo aparece repetido, lo abri hace unos días pero al parecer estaban haciendo mantenimiento a la página en ese momento y ahora que lo estaba buscando pues no lo encontre.

[marcoszorrilla]

Este código lo mando al Foro mi amigo Rubén Acosta desde Cuba, solamente tienes que cambiar la tecla que provoque el despliegue:

Código Delphi [-]
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_F5 then begin
DBGrid1.SelectedIndex:=#;
keybd_event(VK_F2,0,0,0);
keybd_event(VK_F2,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_MENU,0,0,0);
keybd_event(VK_DOWN,0,0,0);
keybd_event(VK_DOWN,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0);
end;

Un Saludo.

[Jonnathan]

Perdón por la tardanza Marcos no habia tenido tiempo de revisar el foro. El código que pusiste funciona perfecto, muchas gracias por tu ayuda.

[jhcaboverde]

hola estoy tratando de llenar un picklist y no he podido por problemas con el tstrings, me puedes decir como se llena el picklist, es que quiero llenar una columna de un dbgrid con los datos de un campo de una tabla te muestro:
este es un ejemplo de como lleno un combox ahora me haria falta algo parecido para el picklist:

AdoDataSet1.Close;
AdoDataSet1.CommandText:='SELECT * FROM AREAS';
AdoDataSet1.Active :=True;
WHILE NOT DataSource1.DataSet.Eof DO //AREGO SEMANAS A COMBO PARA PODER IMPRIR REPORTES
BEGIN
AREA.Items.Add(ANEXO1.DataSource1.DataSet.Fields.FieldByName('nombre').AsString);
DataSource1.DataSet.Next;
END;

Empezado por Jonnathan

Buen dia a todos, quisiera saber si alguien tiene idea del código en Delphi necesario para hacer que se despliegue el "PickList" de la celda de un DBGrid. Ya se que se despliega presionando "Alt + Tecla Abajo", pero me gustaria hacerlo al presionar la tecla "Enter" ya que es para un programa de facturación y me gustaría ponerle las cosas mas facil al usuario en caja para ganar tiempo.

P.D.: Disculpen si este hilo aparece repetido, lo abri hace unos días pero al parecer estaban haciendo mantenimiento a la página en ese momento y ahora que lo estaba buscando pues no lo encontre.

[rgstuamigo]

Buen dia a todos, quisiera saber si alguien tiene idea del código en Delphi necesario para hacer que se despliegue el "PickList" de la celda de un DBGrid. Ya se que se despliega presionando "Alt + Tecla Abajo", pero me gustaria hacerlo al presionar la tecla "Enter" ya que es para un programa de facturación y me gustaría ponerle las cosas mas facil al usuario en caja para ganar tiempo.

Hace unos dias atras que postie aqui algo parecido y nadie me supo responder, con la variante que cuando el focus llegue a la columna que tiene el"PickList"lleno, se despliegue y se muestre de inmediato los item .
Talves podrian hecharme una manito.

hola estoy tratando de llenar un picklist y no he podido por problemas con el tstrings, me puedes decir como se llena el picklist, es que quiero llenar una columna de un dbgrid con los datos de un campo de una tabla te muestro:
este es un ejemplo de como lleno un combox ahora me haria falta algo parecido para el picklist:

Simplemente coloca dentro del While mas o menos esto:

Código Delphi [-]
//DBGrid1 es el grid donde quieres que se cargue los item,aqui por ejemplo estoy carganado la primera columna (columna cero).
DBGrid1.Columns[0].PickList.Add(ADODataSet1.Fields[0].AsString);//aqui lo estoy poniendo a ADODataSet1 como el dataset de dondes vas a copiar o cargar los datos.No te olvides de colocar
ADODataSet1.Next;

Saludos...