Menu funktionalität ohne MainMenu

[Mavarik]

Hallo Zusammen!

Ich möchte die Funktionalität eines MainMenus ohne das Menu haben. Bedeutet...

Ich definieren

&Aufrufen
&Nichtaufruf
&Sonderfunktion
CooleFunktion STRG+C

Wenn keines der MDI-Childs auf Alt-A, Alt-N, Alt-S reagiert hat, möchte ich die Funktionen die hinter meinen Menüpunkten stehen aufrufen...
Das Ganze aber bitte ohne das ein MainMenu dargestellt wird...

Ich brauche also kein Keypreview.... sondern ein Shortcut/Accelerator wurde nicht verwendet Aufruf...

Jemand ne Idee hierfür?

Mavarik

[Dalai]

TActionList?

MfG Dalai

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

Delphi-Quellcode:

procedure Tfrm_Main.AppEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  //Shortcut für mein nicht angezeigtes MainMenu?
  Handled := Menu1.IsShortCut(Msg);

  //Shortcut bzw. Key kam nicht aus dieser Form, daher hier keine weitere Prüfung
  //und statt dessen Verarbeitung in anderer Form (z.B. MDI)
  if Application.ActiveFormHandle <> self.handle then exit;

  if not handled then begin
    // Alt+Strg gedrückt?
    if (Getkeystate (VK_MENU) shr 15 <> 0) and (Getkeystate (VK_Control) <> 0) then begin
      if (msg.CharCode in [69,81]) then begin  // @ und €-Zeichen wurden gedrückt
        Handled := false;
        exit;
      end;
    end;
  end;

  if not handled then begin
    // Tasten Alt+Buchstaben (A-Z) gedrückt?
    if Getkeystate (VK_MENU) shr 15 <> 0 then begin
      if (msg.CharCode in [65..90]) or (msg.CharCode.ToString = '186') then begin
        handled := True;
        sleep (10);
        // Tatsächliche Verarbeitung in der Form-KeyUp-Prozedur
        FormKeyup(NIL, msg.CharCode, [ssAlt]);
      end;
    end;
  end;
end;

Beispiel für eine Anwendung im anliegenden Screenshot: Mainmenu ist in Form, wird aber nicht angezeigt (Stattdessen arbeite ich mit eigenen Menübändern, nutze aber die Menüeinstellungen des Mainmenus, für die der User auch benutzerdefinierte Einstellungen vornehmen kann, um so z.B. eigene Shortcuts festzulegen).

[Popov]

In jedem Buch alla "Wie diskutiere ich richtig" steht gleich am Anfang der Tipp: vereinbaren sie zuerst ein gemeinsames Glossar, so dass die Wörter für beide das gleiche bedeuten. Sonst reden sie evtl. aneignender vorbei.

Was meinst du mit "Menu funktionalität ohne MainMenu". Du hast kein Menü oder willst du nicht ein Menü aufklappen?

[Dejan Vu]

Komisch, die anderen drei (Dalai, Harry und ich) haben die Frage verstanden. Vielleicht liegts doch an Dir?

[Popov]

@Dejan Vu

Und jetzt?

[Captnemo]

Zitat von Popov:

Was meinst du mit "Menu funktionalität ohne MainMenu". Du hast kein Menü oder willst du nicht ein Menü aufklappen?

Der Maverik möchte die Tastaturfunktionalität, die in einem Mainmenu gegeben ist, ohne Mainmenu auf in seinem Programm nutzen.
So hab ich es jedenfalls verstanden.

[Perlsau]

Zitat von Captnemo:

Der Maverik möchte die Tastaturfunktionalität, die in einem Mainmenu gegeben ist, ohne Mainmenu auf in seinem Programm nutzen.

Wird diese Tastaturfunktionalität nicht bereits durch die Verwendung einer TActionList zur Verfügung gestellt? Also wenn ich eine ActionList in meiner Form platziere, dort Aktionen eintrage, selbige mit entsprechenden Hotkeys versehe und die Ereignisbehandlungen dazu schreibe, brauche ich nicht zwangsläufig ein MainMenu, um die Ereignisse auszulösen. Das MainMenu würde hier lediglich der visuellen Darstellung der Menüpunkte dienen, die Mavarick ja explizit nicht wünscht.

@Mavarick: Was meinst du dazu?

[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 Handel kann die aber nicht die Info geben, oder? Wieso Exit?

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

[Union]

Das wäre vielleicht ein Ansatz, als Basis habe ich ein mit der "MDI-Anwendung" erstelltes Standardprojekt verwendet. Umgebogen wird Strg+V. Ist ein MDI-Child aktiv, wird der Tastendruck wieder an dieses per PostMessage weitergeleitet.

Delphi-Quellcode:

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    const VK_V = $56;      // "V"
    var idVK_V : Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

// Implementation
procedure TMainForm.FormCreate(Sender: TObject);
const
  MOD_CONTROL = 2;
begin
  idVK_V := GlobalAddAtom('Control+V');
  RegisterHotKey(Handle, idVK_V, MOD_CONTROL, VK_V);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, idVK_V);
  GlobalDeleteAtom(idVK_V);
end;

procedure TMainForm.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = idVK_V then
  begin
    if ActiveMDIChild <> nil then
    begin
      PostMessage(ActiveMDIChild.Handle, WM_KEYDOWN, VK_CONTROL, 0);
      PostMessage(ActiveMDIChild.Handle, WM_KEYDOWN, VK_V, 0);
      PostMessage(ActiveMDIChild.Handle, WM_KEYUP, VK_CONTROL, 0);
      PostMessage(ActiveMDIChild.Handle, WM_KEYUP, VK_V, 0);
    end
    else
      Showmessage('Strg+V');
  end;
end;