Lenguaje de programación Borland Delphi
Para limitarlo:
procedure TForm1.Button1Click(Sender: TObject);
var
Rectangulo: TRect;
begin
With Rectangulo do
begin
Left:=10; {Izquierda}
Right:=300; {Derecha}
Top:=10; {Arriba}
Bottom:=300; {Abajo}
end;
ClipCursor(@Rectangulo);
end;
Para restaurarlo:
ClipCursor(nil);
Publicado el: 2003-09-12