Ограничить область передвижения мыши
|
Чем юзер отличается от программиста? Если попросить их перезагрузить комп пользуясь только мышкой, юзер жмет на "завершение работы" в Виндовсе. А что сделает программист? Он поднимет мышку со стола и нажмет ею на Reset.
|
Сначала определяете ограничивающий прямоугольник, затем используете функцию 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;
|
Чтобы восстановить:
|
