Código Delphi [-] procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_F4 then ShowMessage('Tecla F4 presionada'); end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_F4 then ShowMessage('Tecla F4 presionada'); end;