TMenu - Rechtsklick auf Menüeintrag erkennen

[taaktaak]

Moin, Moin.
Ich möchte gern einen Klick mit der rechten Maustaste auf einen Eintrag eines MainMenu erkennen. Meine bisherigen Recherchen waren erfolglos, eigene Versuche ebenso. Da das MenuHandle bzw. das MenuWindowHandle bekannt sind, müsste es doch aber eigentlich möglich sein, diesen Klick mit der rechten Maustaste zu erkennen. Hmm, wäre für einen kleinen Schupps in die richtige Richtung dankbar...

[bitsetter]

Moin,

eventuell wäre die Nachricht WM_MENURBUTTONUP dafür interessant.

Delphi-Quellcode:

   
  private 
    procedure WMMENURBUTTONUP(var msg: TMessage); message WM_MENURBUTTONUP;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMENURBUTTONUP(var msg: TMessage);
begin
   Showmessage(inttostr(msg.WParam));
end;

[taaktaak]

Moin, Moin,
jawoll, das ist die richtige Message! Funktioniert! Super! Danke!

[taaktaak]

Falls es auch für andere noch von Interesse ist: Vermutlich möchte man ja auch noch wissen, worauf geklickt wurde

Delphi-Quellcode:

procedure Tfo~~.WMRMenuButtonUp(var Msg:TMessage);
begin
  ShowMessage(MainMenu1.FindItem(Msg.LParam,fkHandle).Items[Msg.WParam].Name); // MenuItem Name
  ShowMessage(MainMenu1.FindItem(Msg.LParam,fkHandle).Name);                   //   Parent Name
end;