ich habe die Lösung gefunden !
Delphi-Quellcode:
var
p: TPoint;
begin
p := Mouse.CursorPos;
LabelP.Caption := 'X: ' + IntToStr(p.X) + ' / Y: ' + IntToStr(p.Y); //Koordinaten ausgeben
p.X := p.X + 100; //X-Wert und
p.Y := p.Y + 100; //Y-Wert verändern
Mouse.CursorPos := p; //Neue Koordinaten übergeben
end;
durch Abfrage des Labels über einen Timer kann man den Unterschied feststellen und entsprechend auswerten
[edit=MrSpock]Doppelpost gelöscht. Mfg, MrSpock[/edit]