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