Ayuda Delphi!!

[Caroso]

Empezado por oscarac

Creo que el problema esta en el

Form1.Close

no deberia ser

frmLateralDerecho.Close

mil disculpas oscarac! tienes razon... lo corrigire... pero aun continuo con el problema de al intentar posicionarme sobre un elemento dentro del form este se cierra

[Caroso]

gracias por tomarte el tiempo para responder ecfisa!!

Pero con la reforma del código el form cuesta cerrar... me explico mejor... al incorporar la reforma, debo intentar varias veces salir hasta que toma el evento y cierra el form...

Nuevamente muchas gracias por tu tiempo

[ecfisa]

Hola.

Que extraño, en la prueba funciona de modo correcto. Es más, para salir de toda duda lo incorporé al form principal de un sistema (MDI) con varias ventanas abiertas y también cierra ni bién el cursor deja el form principal. Uso Delphi 7, tal vez se comporte diferente en otra versión...

Saludos.

[Caroso]

Empezado por ecfisa

Hola.

Que extraño, en la prueba funciona de modo correcto. Es más, para salir de toda duda lo incorporé al form principal de un sistema (MDI) con varias ventanas abiertas y también cierra ni bién el cursor deja el form principal. Uso Delphi 7, tal vez se comporte diferente en otra versión...

Saludos.

ahhh puede ser por eso... ahora lo pruebo en Delphi 7... yo lo estaba trabajando en Delphi 2010... pruebo y te comento ecfisa

Saludos

[ecfisa]

Hola Caroso.

Ya que estoy te adjunto los fuentes de la prueba para que puedas controlar sobre ella.

Saludos.

[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