[ALexandr555]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Timer1Timer(Sender: TObject); var  foo: TPoint; begin if GetKeyState(VK_LBUTTON) <> 0 then  begin  timer1.Enabled:=false;  GetCursorPos(foo);  while GetKeyState(VK_LBUTTON) <> 0 do   begin   SetCursorPos(foo.X,foo.Y);  end;  timer1.Enabled:=true;  end; end;

таймер 10 мс, по идее должно пока нажата мышка возвращаться в положение, но почему то происходит зацикливание

[ALexandr555]

Такое чувство что он не сразу задает код и после отжатия она остается якобы нажатой

[NumLock]

читай Return Values у GetKeyState.

Код:

1 2 3 4

if (GetKeyState(VK_LBUTTON) and $80000000)>0 then   Label1.Caption:='down' else   Label1.Caption:='up';