Cita:
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
else
Form1.close;
end;
el codigo anda... pero al sacar el mouse del formulario muy rapidamente el mismo permanece abierto...
Muchas Gracias