Eigene Shortcuts ohne MainMenu

[Sharky]

Sorry,

es muss das .OnKeyDown sein:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssCtrl in Shift then
  begin
     Case Key of
      Ord ('N') : ShowMessage ('Ctrl-N');
      Ord ('P') : ShowMessage ('Ctrl-P');
     end;
  end;
end;