2 respuestas en este tema

[enecumene]

Este truco lo que hace es confinar (Mantener) el puntero del mouse dentro del formulario, o sea, el puntero se mantiene adentro sin salir al escritorio, aquí­ el code:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Rect: TRect;
begin
  Rect.Left   := Left;
  Rect.Top    := Top;
  Rect.Right  := Left + Width;
  Rect.Bottom := Top + Height;
  ClipCursor(@Rect);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ClipCursor(nil);
end;

Probado con Delphi 7.

Saludos.

[Wilson]

Gracias por el aporte amigo.

[Caral]

Hola
Muy interesante, gracias amigo.
Saludos