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

[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

[[oscarac]]

Creo que el problema esta en el

Form1.Close

no deberia ser

frmLateralDerecho.Close

[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