Hi, ich hab ein eigenes Menu "programmiert" (aus Panels). Wie kann man ShortCuts ohne das MainMenu einbinden ?

Zitat von Nils_13:

Hi, ich hab ein eigenes Menu "programmiert" (aus Panels). Wie kann man ShortCuts ohne das MainMenu einbinden ?

Hai Nils_13,

Du könntest die gedrückten Tasten im .OnKeyPress der Form auswerten.

Zitat von Sharky:

Zitat von Nils_13:

Hi, ich hab ein eigenes Menu "programmiert" (aus Panels). Wie kann man ShortCuts ohne das MainMenu einbinden ?

Hai Nils_13,

Du könntest die gedrückten Tasten im .OnKeyPress der Form auswerten.

jp, aber wie sorg ich dafür, dass auch wirklich "Strg + N" abgefragt wird nicht nur 'n' ?
Hiermit gehts nicht:
case key of

Sorry,

es muss das .OnKeyDown sein:

zusammenfalten · markieren

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 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

Zitat von Sharky:

Sorry,

es muss das .OnKeyDown sein:

zusammenfalten · markieren

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.