Mauskoordinaten über TImage abfragen

[LazGreenhorn]

Hallo mal wieder:-)

Ich bin gerade auf ein Problem gestoßen. Und zwar möchte ich Freihandlinien auf einem Image zeichnen lassen.
Also Mausklick - zeichnet Linie während Maus bewegt wird - Maus loslassen - Ende Linie.

Meine Frage: Wie kann ich die Koordinaten des Cursors z.B. in den Variablen X und Y speichern? Ich habe es schon mit GetCursorPos versucht, aber das funktioniert nicht...

Kann miir da jemand helfen...? Dankeschön!

[Socke]

Meine Frage: Wie kann ich die Koordinaten des Cursors z.B. in den Variablen X und Y speichern? Ich habe es schon mit GetCursorPos versucht, aber das funktioniert nicht...

Im Event OnMouseMove() werden doch die Maus-Koordinaten übergeben. Kannst du die nicht nutzen?

Es gibt in der Unit Forms die Variable Mouse, über die man auf die Maus zugreifen kann: Mouse.CursorPos liefert die absolute Position; da musst das nur noch auf dein Image herunter rechnen.

[pluto]

Nun das geht im Prinzip ganz einfach:
Bei OnMouseDown Speicherst du in zwei Variablen die X und Y Position ab z.b. in mx und my.
Dann zeichnest du von diesen Werten in onMouseMove bis zu den neuen Werten(Die im Event sind) eine Line.
Dann setzt du die alten Variablen mx und my neu auf x und y vom OnMouseMove.

Problem ist dabei, jedoch das neu Zeichnen. D.H. die Alten Linen werden sichtbar sein. D.H. du musst sie überzeichnen.
Ich finde gerade auf Anhieb leider kein Beispiel zum Thema. Aber es gibt sie. Zahlreich.
z.b. könntest du die alten Position überzeichnen, nur musst du den PenMode in Canvas.Pen ändern.

Das geht im Übrigen so auch bei allen anderen Figuren.