Código Delphi [-] procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if (GetKeyState(VK_RIGHT) < 0) and (UpCase(Key) = 'R') then ShowMessage('Presionaste tecla derecha + R'); end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if (GetKeyState(VK_RIGHT) < 0) and (UpCase(Key) = 'R') then ShowMessage('Presionaste tecla derecha + R'); end;