Bist Du Moderator hier

Kümmerst Du um deine Sachen (Tipp)
Ich musste in Event ContextMenu den Code eingeben :
Delphi-Quellcode:
procedure TForm1.ImageContextPopup(Sender: TObject;
MousePos: TPoint; var Handled: Boolean);
var
Pt: TPoint;
begin
Pt:= Mouse.CursorPos;
getCursorPos(pt);
PopUpMenu1.Popup(pt.x,pt.y);
end;
funktioniert aber ist ein Lange weg ! Gibt es keinen Trick ?