Código Delphi [-] procedure TForm1.FormActivate(Sender: TObject); var R: TRect; begin R:= GetClientRect; MapWindowPoints(Handle, 0, R, 2); ClipCursor(@R); end;
procedure TForm1.FormActivate(Sender: TObject); var R: TRect; begin R:= GetClientRect; MapWindowPoints(Handle, 0, R, 2); ClipCursor(@R); end;