OnMouseMove

**Erlkönig**

Hallo zusammen,

bestimmt ist diese Frage schon einmal im Forum beantwortet worden, aber ich kann keine passende Antwort auf meine Frage finden.

Mein Problem ist eigentlich ganz simpel. Ich möchte die Mausposition auf meiner Form1 in einer edit1.text ausgeben. Das habe ich auch soweit geschafft, nur das sich die Mauskoordinaten auf den gesamten Bildschirm und nicht nur auf die Form1 beschränken. Hierzu habe ich folgenden Quelltext genutzt:

Um es noch genauer zu formulieren, ich möchte dass in der oberen linken ecke die mausposition 0,0 beträgt.

markieren

Delphi-Quellcode:

			procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

edit1.text := IntToStr(Mouse.CursorPos.x);

edit2.text := IntToStr(Mouse.CursorPos.Y);

end;

Ich hoffe es kann mir jdm helfen.

OnMouseMove

OnMouseMove

Forumregeln