Rahmenwahl und Cursorstandpunkte

[Khabarakh]

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