Cursorposition

[lkj]

Hi,
folgendes problem...

Ich habe eine bild das sie von einem beliebigen anderen punkt genau dahin bewegen soll wo geklickt wurde...

meine lösung war bisher das ich onklick die Cursorposition mit "getCursorPos (CursorP)" Ermittelt habe...
und dann einen Timer benutze um das bilt (TImage) zu bewegen... eigentlich kein proble, nur leider ermittelt er die Cursorposition immer neu so das mein bild nicht an die stelle geht wo ich hingeklickt habe, sondern immer dem cursor folgt... hat wer eine idee??

[Alexander]

Mit OnMouseDown bekommst du ebenfalls die Koordinaten.
Sollte helfen

[lkj]

sorry, ich bekomme das nicht ganz hin, kannst du nochmal genau erklären was du mit mousedown meinst?
Menist du den auslöser oder ist das ein befehl?
Ich hab's als befehl probiert aber nicht ganz geschafft...
vieleicht ein beispiel?

[Alexander]

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
begin
  Showmessage('x: '+IntToStr(x)+'y: '+IntTostr(y));
end;

so zum Beispiel