Hallo

ich versuche die Cursor-Position zu steuern.
Der Cursor soll soll nicht Pixel Pixel auf Form bewegen sondern z.B.
100, 100

In Edit möchte ich das Ergebnis auch lesen :
Edit2.Text:=IntToStr(Mouse.CursorPos.X) +', ' +IntToStr(Mouse.CursorPos.Y); wie schaffe ich sowas ?

Gruß

Versuch es mal mit SetCursorPos.

Zitat von thomas2009:

Der Cursor soll soll nicht Pixel Pixel auf Form bewegen sondern z.B.
100, 100

kannst du das etwas deutlicher ausdrücken? was meinst du mit Pixel Pixel?? und heißt 100,100 die neuen Koordinaten oder um wie weit er verschoben werden soll?

Zitat:

markieren

Delphi-Quellcode:

[pre]In Edit möchte ich das Ergebnis auch lesen :
Delphi-Quellcode: markieren
Edit2.Text:=IntToStr(Mouse.CursorPos.X,Mouse.CursorPos.X) [/pre]

Das kann nicht gehen, wenn dann
Edit2.Text:=IntToStr(Mouse.CursorPos.X)+','+IntToS tr(Mouse.CursorPos.X); //<< Und Semikolon nicht vergessen

Gruß Matthias

Doch, es kann

Ich meine der Cursor soll nur auf diese Positionen bewegen z,B. 100,100, 100, 200, 100, 300, ...
d.h. wenn der Cursor Position 60,545 dann soll der Cursor zu der Position 100, 500 springen

Ich wollte damit dass der Cursor nur auf dem Raster des Forms bewegen muss. Das ist das Ziel

(gewünschte stelle div 100) * 100
Bsp:
234 --> 234 div 100 = 2 *100 = 200 !
251 --> 251 div 100 = 3 *100 = 300 !

Versucht habe ich mit diesem Timer :

markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
  var point:TPoint;
begin
getCursorPos(point);
SetCursorPos(Left+Trunc(point.X/100),Top+Trunc(point.y/100));

end;

Aber der Cursor springt immer wieder ganz oben links von dem Screen.

was muss ich auch dazu schreiben

Weils du nur durch 100 teilst, aber nicht mehr multiplizierst. Ausserdem würde ich nicht / nehmen sondern div. div ist für ganzzahlen und rundet dir das dann automatisch, weil nachkommastellen wegfallen. Dann musst du nicht nen Umweg über trunc machen.

Gruß Matthias

war grad irgendwie n bisschen falsch