Zitat von
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;
Zitat von
Alfi001:
Zitat von
Nils_13:
Hi, ich hab ein eigenes Menu "programmiert" (aus Panels). Wie kann man ShortCuts ohne das MainMenu einbinden ?
Hallo,
implementiere die auszuführenden Funktionen mit Actions. Da kannst du dann Shortcuts zuweisen. Falls dein Menü Funktionen irgendwie direkt aufruft kannst du das mit der Execute-Methode der entsprechenden Action machen.
Ciao,
Ralf
Danke, ich denke jetzt ist das Problem gelöst.