PopupMenu für ein MenuItem

[Codehunter]

Ok, mit ein bissi Gebuddel im PSDK hab ich das hier zusammengezimmert:

Code:

procedure TForm1.WndProc(var Msg: TMessage);
begin
  if Msg.Msg = WM_MENURBUTTONUP then begin
    TrackPopupMenuEx(ppmTest.Handle, TPM_LEFTALIGN or TPM_RECURSE, Mouse.CursorPos.X, Mouse.CursorPos.Y, Handle, 0);
  end;
  inherited WndProc(Msg);
end;

Soweit so schlecht, denn AVG scheint nun in meinem Proggi einen Virus zu entdecken Davon abgesehen funktioniert die Lösung aber.

EDIT: Verwendet man statt TrackPopupMenuEx die Routine TrackPopupMenu, dann bleibt AVG ruhig. Verdammte FALSE-FAULTS in den Virenscannern

[Memnarch]

das nennt sich dan FalseAlert und ist ein (fehlerhaftes) resultat der Heuristik in deinem AVG.

EDIT: hach, rote box hatte urlaub^^


MFG
Memnarch

[Codehunter]

Ich kann mich erinnern, die haben es mal FALSE_FAULT genannt. Ist aber Wurscht

Woran ich mir jetzt noch die Zähne ausbeiße ist, herauszufinden, auf welchem MenuItem die rechte Maustaste gedrückt wurde. WM_MENURBUTTONUP liefert nur das Handle des Menüs, im dem der Item steckt, mehr nicht.

EDIT: Laut PSDK müßte MenuItemFromPoint einen Rückgabewert vom Typ int haben, in Delphi 7 ist es aber als LongBool implementiert

[Codehunter]

Ich schubs den Thread noch mal nach oben. Inzwischen bin ich so weit gekommen dass ich MenuItemFromPoint am Laufen habe. Es liefert mir einen absoluten Index des MenuItem im betreffenden TMainMenu. Nur wie komme ich von dem absoluten Index auf den konkreten MenuItem in der hierarchischen Struktur von TMainMenu?

[chaosben]

Das ist ziemlich simpel:

Hier ein Beispiel, das die Caption des MenuItems in die Caption des Formulars schreibt.

Delphi-Quellcode:

procedure WMMENURBUTTONUP(var Message: TMessage); message WM_MENURBUTTONUP;
//...
procedure TForm58.WMMENURBUTTONUP(var Message: TMessage);
begin
  Caption := MainMenu1.FindItem(Message.LParam, fkHandle)[Message.wParam].Caption;
  inherited;
end;