Desplegar PickList por código

[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.