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

ClipCursor(&BoundsRect);

а следующий код в обработчик события формы OnMouseUp:

ClipCursor(NULL);

 Если нажать кнопку мыши на форме и удерживать её, то курсор мышки не сможет покинуть пределы формы.

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

 

Code:

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;

 

 

 

 

Чтобы восстановить:

 

 

 

ClipCursor(NULL);

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить