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.