Código Delphi [-] procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if UpCase(Key) = 'R' then ShowMessage('Presionaste R'); end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if UpCase(Key) = 'R' then ShowMessage('Presionaste R'); end;