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