Cursor Position steuern ?

[thomas2009]

Danke!
Es hat mit dem Code wie ich sehe geklappt : )

Delphi-Quellcode:

SetCursorPos(Left+Trunc(Mouse.CursorPos.X+Mouse.CursorPos.X/100),Top+Trunc(Mouse.CursorPos.Y+Mouse.CursorPos.Y/100));

[matashen]

ich würd aber trotzdem div zum dividieren nehmen, dann gibts nicht soviel trunc-gewurschtel, und performanter ist es auch.

Gruß Matthias

[thomas2009]

Zitat:

Zitat von Stutz

war grad irgendwie n bisschen falsch

Es stimmt der Code funktioniert nicht ganz richtig !

[DeddyH]

Wieso wird Left eigentlich dazuaddiert? Mouse.CursorPos ist doch bereits in Screen-Koordinaten. Müsste also meiner Meinung nach heißen:

Delphi-Quellcode:

SetCursorPos(Mouse.CursorPos.X div 100 * 100,Mouse.CursorPos.Y div 100 * 100);

Oder mache ich jetzt einen dummen Denkfehler?

[thomas2009]

Zitat:

Zitat von DeddyH

Wieso wird Left eigentlich dazuaddiert? Mouse.CursorPos ist doch bereits in Screen-Koordinaten. Müsste also meiner Meinung nach heißen:

Delphi-Quellcode:

SetCursorPos(Mouse.CursorPos.X div 100 * 100,Mouse.CursorPos.Y div 100 * 100);

Oder mache ich jetzt einen dummen Denkfehler?

Mit deinem Code sprigt der Cursor nur nach oben und nach links
Der Cursor soll auch nach rechts und nach unten springen, wenn das Ziel näher als nach oben und nach links :mrgreen:

Meine Gedanken sagen mir, dass man die Höhe und die Breite des Forms zum Brechnen kommen müssen :gruebel:

[matashen]

In welchem Event hast du denn das reingeschrieben ?
Das würde helfen das ganze richtig zu stellen

Gruß Matthias

[thomas2009]

Zitat:

Zitat von matashen

In welchem Event hast du denn das reingeschrieben ?
Das würde helfen das ganze richtig zu stellen

Gruß Matthias

Zur Zeit in einem Timer für den Test, sonst werde ich dies z.B. in FormOnMouseMouve