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;