<div>
a sample to move the mouse in 250 steps<br />
<br />
procedure TForm1.Button1Click(Sender<wbr />: TObject);<br />
var<br />
&nbsp; p : Tpoint;<br />
&nbsp; I : Integer;<br />
&nbsp; stepx, Stepy : Integer;<br />
begin<br />
&nbsp; getcursorpos(p);<br />
&nbsp; setcursorPos(0,0);<br />
&nbsp; stepx := screen.width div 250;<br />
&nbsp; stepy := screen.height div 250;<br />
&nbsp; for i := 1 to 250 do<br />
&nbsp; &nbsp; setcursorpos(stepx*i,stepy<wbr />*i);<br />
&nbsp; setcursorpos(p.x,p.y);<br />
end;<br />
<br />
meikl ;-)
</div>


a sample to move the mouse in 250 steps

procedure TForm1.Button1Click(Sender: TObject);
var
  p : Tpoint;
  I : Integer;
  stepx, Stepy : Integer;
begin
  getcursorpos(p);
  setcursorPos(0,0);
  stepx := screen.width div 250;
  stepy := screen.height div 250;
  for i := 1 to 250 do
    setcursorpos(stepx*i,stepy*i);
  setcursorpos(p.x,p.y);
end;

meikl ;-)

<div>
Slick812,<br />
Can you help me to do same work without a timmer ?<br />
Alike While ...<br />
Anothers 100 points for that.<br />

</div>


Slick812,
Can you help me to do same work without a timmer ?
Alike While ...
Anothers 100 points for that.


<div>
<div class="content wysiwyg-content">
I know how can I move my mouse, but I wish to create an animated movement and not just a jump to the new position.<br />
Can give me some codes for how can I move animated (step by step )the cursor from Point1 to Point2?<br />
<br />
Nick
</div>
</div>


I know how can I move my mouse, but I wish to create an animated movement and not just a jump to the new position.
Can give me some codes for how can I move animated (step by step )the cursor from Point1 to Point2?

Nick

Animated movement of my cursor

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.