ОГРАНИЧИТЬ ОБЛАСТЬ ПЕРЕДВИЖЕНИЯ МЫШИ

 

 

 Сначала определяете ограничивающий прямоугольник, затем используете функцию ClipCursor(), передав ей в качестве параметра указатель на этот прямоугольник. Например, вот так можно по 100 пикселей скостить по краям экрана:

 

 

procedure TForm1.Button1Click(Sender: TObject);

var

r:TRect;

pr:PRect;

begin

r.Left:=100;

r.Top:=100;

r.Right:=Screen.Width-100;

r.Bottom:=Screen.Height-100;

pr:=@r;

ClipCursor(pr);

end;

 

Чтобы восстановить область, нужно использовать высоту и ширину экрана:

 

 

procedure TForm1.Button1Click(Sender: TObject);

var

r:TRect;

pr:PRect;

begin

r.Left:=0;

r.Top:=0;

r.Right:=Screen.Width;

r.Bottom:=Screen.Height;

pr:=@r;

ClipCursor(pr);

end;