Popup irgendwo

[ozz]

Hallo zusammen,
ich habe etwas Probleme mit einen Popup. Dieses erscheint nicht an der richtigen Stelle. Ich weiß auch , was das Problem ist. Die verwendeten Koordinaten beziehen sich immer relativ auf die auslösende Objekt. Für das Form gibt es die (siehe unten). Wie bekomme ich diese mit Hilfe des Senders?

Delphi-Quellcode:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button= mbRight then PopupMenu1.Popup(Form1.Left + x,Form1.Top +y);
end;

[ste_ett]

ClientToScreen wandelt die Koordianten um.

[ozz]

Hallo ste_ett,
danke für den Tipp. Leider ist dies genau das gleiche Ergebniss.Ist vieleicht der Fehler in meinem Code?

Danke

Delphi-Quellcode:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var coordinate,coordinate1:TPoint;
begin
 coordinate.X:=x;
 coordinate.Y:=y;
 coordinate1:=ClientToScreen(coordinate);
 if Button= mbRight then PopupMenu1.Popup(coordinate1.X,coordinate1.Y);
end;

[ste_ett]

Bei mir klappt es mit dem Code.
Die linke, obere Ecke des Popups sollte bei dir auf der Cursorspitze erscheinen.