Delphi для всех

Ограничить область перемещения мыши

В тех случаях, когда нужно, чтобы курсор мыши не выходил за определенную область, удобнее всего использовать ClipCursor. Эта программа не позволяет вывести мышь за границы окна, КОГДА ОНА НАЖАТА.

var
r: TRect;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
r1: TRect;
begin
GetClipCursor(r);
r1 := Form1.ClientRect;
r1.TopLeft := Form1.ClientToScreen(r1.TopLeft);
r1.BottomRight := Form1.ClientToScreen(r1.BottomRight);
ClipCursor(@r1);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ClipCursor(@r);
end;