[[nlsgarcia]]

bulc,

Empezado por bulc

No entiendo eso de la API que mencionas. ¿Podrías extenderte un poco más?

Revisa este código:

Código Delphi [-]
// Limita el movimiento del Cursor solo a Form1 : Activa Clipping State
procedure TForm1.FormActivate(Sender: TObject);
var
  R: TRect;
begin
  R:= GetClientRect;
  MapWindowPoints(Handle,0,R,2);
  ClipCursor(@R);
end;

// Necesario para salir de Form1
procedure TForm1.btnSalirClick(Sender: TObject);
begin
  Close
end;

El código anterior evita que el cursor salga de Form1 por medio del API ClipCursor.

Empezado por bulc

No es MDI, es una aplicación multificha normal. Carga 20 ventanas=fichas al iniciarse

Revisa este código:

Código Delphi [-]
// Remueve el Clipping State
procedure TForm1.RemoveClippingStateClick(Sender: TObject);
begin
   ClipCursor(nil);
end;

El código anterior devuelve la funcionalidad normal al cursor. Es necesario si tienes más de un formulario en tu aplicación para remover el Clipping State.

Todo el código anterior se encuentra en el link mencionado anteriormente.

Espero sea útil

Nelson.