Mouse absolute Position ermitteln!

[R2009]

Hi,
hab ein ganz triviales Problem:
ich möchte ein tpicture mit Hilfe des Mauszeigers bewegen.

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label1.caption:=inttostr(x);
  label2.caption:=inttostr(y);
  image2.Left:=x;
  image2.Top:=y;
end;

klappt auch dganz gut solange ich den Mauszeiger ausserhalb des pictures halte. Wie kriege ich die aktuelle Position des Mauszeiger unabhängig ob der sich jetzt direkt über der Form oder über einem beliebigen Steuerelement befindet.
Ich will die Position immer relativ zur Form.

Danke!

[toms]

Hallo, z.B mit der TApplicationEvents Komponente.

[Bernhard Geyer]

Die Methoden ScreenToClient und ClientToScreen sind dein Freund ...
Einfach mal in der OH nachschauen.

[fui-tak]

Du könntest dir hiermit was zurechtbasteln:

Mouse.CursorPos.X
Mouse.CursorPos.Y

Hier erhälst du die Koordinaten auf dem Bildschirm

[himitsu]

Zitat:

Zitat von fui-tak

Hier erhälst du die Koordinaten auf dem Bildschirm

Er möchte sie aber relativ zu seiner Form
und da müßte er dann ebenfalls ScreenToClient nutzen, um es umzuwandeln.

Ich würde hier aber ClientToParent verwenden ... alles Andere wären nur unnötige Umwege.

Delphi-Quellcode:

// Image1 leitet seinen Aufruf an Form1 weiter
Procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  Var P: TPoint;

  Begin
    P.X := X;
    P.Y := Y;
    P := ClientToParent(P, Form1);
    Form1.OnMouseMove(Sender, Shift, P.X, P.Y)
  End;