Cursor.Clip (limitar cursor en pantalla)

[ecfisa]

Hola gluglu.

Para limitar el movimiento del mouse al area cliente del form:

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

(Así no dejo los deberes a medio hacer )


Saludos.