Blokowanie MYSZY do kaczQ

à propos tej myszy zrob tak:

na formie wstaw dwa Buttony
i wpisz w pierwszym:

procedure TForm1.Button1Click(Sender: TObject);
var r : TRect;
begin
r := BoundsRect;
ClipCursor(@R);
end;

a w drugim:

procedure TForm1.Button2Click(Sender: TObject);
begin
ClipCursor(nil);
end;

To o wieeeeeeeeeeeeeeeeeeele ptostsze i odpisz czy o to chodzi

WIDMO wielkie dzieki ze mimo skasowania mojego postu odpisales mi !!!!!!!!! BARDZO DZIEKUJE!!! BTW o to chodzilo POZDRAWIAM