AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TMenu - Rechtsklick auf Menüeintrag erkennen

Ein Thema von taaktaak · begonnen am 4. Mär 2008 · letzter Beitrag vom 5. Mär 2008
Antwort Antwort
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.984 Beiträge
 
Delphi 7 Professional
 
#1

TMenu - Rechtsklick auf Menüeintrag erkennen

  Alt 4. Mär 2008, 22:08
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...
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: TMenu - Rechtsklick auf Menüeintrag erkennen

  Alt 4. Mär 2008, 23:29
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;
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.984 Beiträge
 
Delphi 7 Professional
 
#3

Re: TMenu - Rechtsklick auf Menüeintrag erkennen

  Alt 5. Mär 2008, 07:24
Moin, Moin,
jawoll, das ist die richtige Message! Funktioniert! Super! Danke!
Ralph
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.984 Beiträge
 
Delphi 7 Professional
 
#4

Re: TMenu - Rechtsklick auf Menüeintrag erkennen

  Alt 5. Mär 2008, 09:40
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;
Ralph
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:48 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