Eine globale Variable in der Hauptunit ist der schnellste und unsauberste Weg:
Delphi-Quellcode:
unit Unit1;
[...]
var
Form1: TForm1;
MousePosition: TPoint;
{ Besser als Feld von TForm1 deklarieren:
type
TForm1 =
[...]
public
MousePosition: TPoint;}
...
unit Unit2;
interface
uses Unit1, ...;
[...]
Canvas.TextOut(Format(MousePosition, ...));
// bzw. Form1.MousePosition
Eine Methode von Form2 wäre hier aber auch nicht schlecht:
Delphi-Quellcode:
type
TForm2
public
procedure DrawPos(Pos: TPoint);
...
// Unit1
uses Unit2;
[...]
DrawPos(RelMousePos);
Edit: Eigentlich gilt: Neue Frage, neuer Thread