Ver Mensaje Individual
  #5  
Antiguo 09-07-2013
Caroso Caroso is offline
Miembro
NULL
 
Registrado: jul 2013
Posts: 44
Reputación: 0
Caroso Va por buen camino
Unhappy Este es mi codigo...

Cita:
Empezado por oscarac Ver Mensaje
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

Última edición por Casimiro Noteví fecha: 09-07-2013 a las 18:55:35.
Responder Con Cita