MessageBox Postion

[busybyte]

z.B.

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var P:TPoint;
begin
P:=ClienttoScreen(Point(X,Y));
case button of
//     mbright:Popupmenu1.Popup(Panel1.Left+P.x+10,Panel1.Top+P.Y); //Wer das Left  oder Top vorgibt,
     mbright:Popupmenu1.Popup(P.x+10,P.Y);

end;
end;

einfach ausprobieren