Ayuda Delphi!!

[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

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