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

ОГЛАВЛЕНИЕ    HOME  MAIL

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;