Ayuda Delphi!!

[Caroso]

gracias por el codigo fuente caroso... por ahi tengo un problema de configuracion de la pc... pero si te sirve eh grabado un video el cual muestra el proyecto que tu me enviaste... en el mismo posiciono el mouse sobre los controles dentro del form y anda esplendido... pero al intentar salir no se cierra automaticamente... el interesado me envia un mensaje privado pues no puedo colocar link... desde ya gracias a todos por su colaboracion

[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.