Ayuda Delphi!!

[Caroso]

Nuevamente yo amigos del Foro... eh encontrado la solucion a mi problema... esta en este enlace...

delphi.about.com/cs/adptips2000/a/bltip0800_5.htm

Código Delphi [-]
procedure TForm1.FormDeactivate(Sender: TObject) ;
begin
   ReleaseCapture;
end;

procedure TForm1.FormMouseMove
(Sender: TObject; Shift: TShiftState; X,Y: Integer) ;
begin
  If GetCapture = 0 then
    SetCapture(Form1.Handle) ;
    if PtInRect(Rect(Form1.Left,
                    Form1.Top,
                    Form1.Left + Form1.Width,
                    Form1.Top + Form1.Height),
                    ClientToScreen(Point(x, y))) then
     Form1.Caption := 'Mouse is over form' else
     Form1.Caption := 'Mouse is outside of form';
end;

Muchisimas gracias a todos los que colaboraron conmigo... es de suma importancia para mi poder agradecer su tiempo y dedicacion...

Atte: Caroso...

PD:\ TEMA CERRADO

[ecfisa]

Hola.

Me alegra que lo hayas solucionado

A modo de comentario, ese código se puede reducir:

Código Delphi [-]
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If GetCapture = 0 then
    SetCapture(Handle) ;
  if not PtInRect(BoundsRect, Mouse.CursorPos) then
    Close;
end;

Saludos.