pressionar botão...

[deio 0]

como eu faço para dizer ao delphi pressionar a seta pra cima e a pra baixo do teclado?

[Maikel Scheid 1]

Olá amigoTente assim:procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key = VK_UP then ShowMessage('Seta acima'); if key = VK_DOWN then ShowMessage('Seta abaixo');end;Att

[marcio.theis 3]

Seta para cima:

keybd_event(VK_UP,0,0,0);

Seta para baixo:

keybd_event(VK_DOWN,0,0,0);

[deio 0]

ae vlw, dúvida respondida XD

[marcio.theis 3]

beleza... :D