Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TMenu - Rechtsklick auf Menüeintrag erkennen (https://www.delphipraxis.net/109631-tmenu-rechtsklick-auf-menueeintrag-erkennen.html)

taaktaak 4. Mär 2008 22:08


TMenu - Rechtsklick auf Menüeintrag erkennen
 
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 4. Mär 2008 23:29

Re: TMenu - Rechtsklick auf Menüeintrag erkennen
 
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 5. Mär 2008 07:24

Re: TMenu - Rechtsklick auf Menüeintrag erkennen
 
Moin, Moin,
jawoll, das ist die richtige Message! Funktioniert! Super! Danke! :hi:

taaktaak 5. Mär 2008 09:40

Re: TMenu - Rechtsklick auf Menüeintrag erkennen
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf