[bulc]

Empezado por ecfisa

Hola bulc.

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

// Necesario para salir de la aplicación
procedure TForm1.btnSalirClick(Sender: TObject);
begin
  Close
end;

Saludos.

Gracias, enseguida lo pongo en práctica.