Código Delphi [-]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = VK_F1 then ShowMessage('Pulsó F1'); end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = VK_F1 then ShowMessage('Pulsó F1'); end;