Ayuda Delphi!!

[Caroso]

Hola muchachos soy nuevo en el FORO!!, lo eh observado con frecuencia y me ah sido de mucha utilidad... en esta oportunidad me dispongo a preguntar si alguien me podría ayudar...
El tema es el siguiente:

1) Necesitaría saber como hacer para que, al llevar el cursor (mouse) fuera de mi aplicación, fuera de mi form, la misma se cierre... eh estado probando con el evento OnMouseLeave, pero al colocar un botón en el mismo e intentar posicionarme sobre él, el formulario llama al evento OnMouseLeave y lo cierra.

Desde ya muchas gracias!! PD:\ eh estado leyendo muchos hilos en este foro... pero ninguno se ajusta a mis necesidades.

[Casimiro Noteví]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Y no olvides poner títulos descriptivos a tus preguntas, gracias

[[oscarac]]

coloca tu codigo a ver q tienes

[Casimiro Noteví]

Y recuerda poner los tags al código fuente, ejemplo:



Gracias

[Caroso]

Empezado por oscarac

coloca tu codigo a ver q tienes

Hola oscarac gracias por tu pronta respuesta... te muestro lo que tengo hasta ahora... este codigo lo obtube de este mismo foro...

esto lo ubique en el evento OnDesactivate del formulario...

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

y esto otro en el evento OnMouseLeave...

Código Delphi [-]
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  If GetCapture = 0 then
    SetCapture(frmLateralDerecho.Handle) ;
  If PtInRect(Rect(frmLateralDerecho.Left, frmLateralDerecho.Top, frmLateralDerecho.Left + frmLateralDerecho.Width, 
              frmLateralDerecho.Top + frmLateralDerecho.Height), ClientToScreen(Point(x, y))) then
    { Cosas a hacer si el puntero del mouse está dentro del formulario }
  else
    Form1.close; { Cosas a hacer si el puntero del mouse está fuera del formulario }
end;

el codigo anda... pero al sacar el mouse del formulario muy rapidamente el mismo permanece abierto...

Muchas Gracias

[ecfisa]

Hola Caroso.

Código Delphi [-]
...
type
  TMainForm = class(TForm)
    ...
  private
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  public
  end;

...

implementation

procedure TMainForm.CMMouseLeave(var Msg: TMessage);
begin
  Close;
end;
...

Saludos.

Edito: Disculpas, no leí lo del boton...

[[oscarac]]

Creo que el problema esta en el

Form1.Close

no deberia ser

frmLateralDerecho.Close

[Caroso]

Empezado por ecfisa

Hola Caroso.

Código Delphi [-]
...
type
  TMainForm = class(TForm)
    ...
  private
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  public
  end;

...

implementation

procedure TMainForm.CMMouseLeave(var Msg: TMessage);
begin
  Close;
end;
...

Saludos.

Edito: Disculpas, no leí lo del boton...

jeje no hay problema ecfisa! jeje a cualquiera le puede pasar... este codigo lo eh probado anteriormente... y realmente funciona pero al intentar posicionarme sobre un elemento dentro de el form se cierra...

Desde ya muchas gracias por tu tiempo

[ecfisa]

Hola.

Como edité en el mensaje anterior, se me pasó tu comentario sobre el TButton, así que rectifico el código anterior:

Código Delphi [-]
...
type
  TMainForm = class(TForm)
    ...
  private
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  public
  end;

...

implementation

procedure TMainForm.CMMouseLeave(var Msg: TMessage);
begin
  if FindVCLWindow(Mouse.CursorPos) = nil then
    Close;
end;
...

Saludos.

[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

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