Cursor.Clip (limitar cursor en pantalla)

[ecfisa]

Hola gluglu.

Fijar area pantalla:

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
var
  R: TRect;
begin
  R.Left:= Left;
  R.Top:= Top;
  R.Right:= Left + Width;
  R.Bottom:= Top + Height;
  ClipCursor(@R);
end;

Restaurar:

Código Delphi [-]
procedure TForm1.RestaurarClick(Sender: TObject);
begin
  ClipCursor(nil);
end;

Si queres excluir la barra de título en el area definida, tendrías que considerar el alto.
Lo podés obtener:

Código Delphi [-]
  GetSystemMetrics(SM_CYMENU) + 8;

Un saludo.