Menu funktionalität ohne MainMenu

[Mavarik]

Zitat von Union:

Zitat von Mavarik:

Leider falsche Reigenfolge..
bzw.. Selbst wenn ein MDI-Child active ist aber die Taste "nicht gebrauchen" kann... Wird diese ja ans Menu weitergeleitet...

Das macht aber nichts. Wenn das Menü diesen Shortcut nicht bearbeitet, läuft der ja in's Leere.

Ne umgekehrt... Erst wenn kein Fenster es gebrauchen kann, darf das "Menue" die Taste nutzen!

[Harry Stahl]

Zitat von Mavarik:

Zitat von Harry Stahl:

Ich verwende hier ein TApplicationEvent-Object in der Mainform. Mit der folgenden Abfrage kann ich die Shortcuts aus dem Main-Manu verwenden und die Alt+Buchstabe-Abfrage machen, um z.B. den entsprechenden Menübandeintrag (Alt+S für "Start") anzeigen zu lassen. Gleichzeitig wird sichergestellt, dass bestimmte Alt (+Strg)-Kombinationen von den üblichen Objekten (z.T. TEdit für "@-Zeichen", das man normalerweise mit Alt+Strg+E aufruft) verarbeitet werden können.

Das Handle kann die aber nicht die Info geben, oder? Wieso Exit?

Bei einem MDI-Form ist das ActiveFormHandle immer das Form...?!?

Welche Info meinst Du?

Die Abfrage auf ActiveFormHandle erfolgt, weil ich im Hauptformular neben MDI-Fenstern auch noch normale Formulare habe, welche auch einen modalen Fokus haben können (das sind Einstellflächen als Alternative zu modalen Dialogen, aber eben innerhalb der Form). Dann sollen natürlich Shortcuts nicht ausgeführt werden können (daher dann Exit).

Habe hier übrigens beim rüber kopieren aus meinem Source die Abfrage auf das Formhandle versehentlich hinter die IsShortCut-Abfrage kopiert, richtig muss es aber so lauten:

Delphi-Quellcode:

procedure THauptformular.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
  if Application.ActiveFormHandle <> self.handle then exit;

  handled := MainMenu1.IsShortCut(Msg);

  ...

Jedenfalls funktioniert hier die Nutzung von Actions, Shortcuts (aus ActionList oder dem unsichtbaren Mainmenu), Tastaturabfragen für Form, MDI, integrierte Forms usw. wie gewünscht.