Cerrar componente con ventana modal

[roman]

Empezado por Lepe

elcigarra intenta liberarlo desde el evento OnDeactivate, creo que te puede servir, aunque no lo he probado.

En dicho Evento puedes poner form1.ModalResult := mrNo / mrCancel

Si el formulario se muestra modal, el evento OnDeactivate del formulario no se registrará sino hasta después de que termine el estado modal.

Podría usar el evento OnDeactivate de la aplicación pero éste tampoco se registrará si se hace click sobre otro formulario de la aplicación.

Lo que quiere hacer lo puede lograr con Show en lugar de ShowModal y poniendo Close en ambos Deactivate. Yo hago esto para simular el comportamiento de un menú con una ventana cualquiera: el menú se cierra cuando se da click en cualquier parte que no sea él mismo.

Lo único que tiene que tener cuidado es con lo que ya le indicó luisgutierrezb.

// Saludos

[elcigarra]

La solución de luisgutierrezb funciona perfecto a lo que yo pregunté, sin embargo el hecho de que la ventana no sea modal genera nuevos problemas.
Algo de código (esquemático). estábamos aquí...

Código Delphi [-]
  
function TMyComp.Execute: Integer;
begin 
  Form1:=TForm1.Create(Self);
  try
    FormCalendar.ShowModal;
  finally
    Result := Form1.SpinEdit1.Value;
    Form1.Free;  // Sentencia que quitaría cuando no es modal
  end;
end;

El problema con el Show es que como la aplicación no se detiene en la ventana modal, el resultado de la función Execute se carga con el primer valor del SpinEdit (del Form) y no con el último, no importa como sea que salga.

[elcigarra]

Perdón.. donde dije "formcalendar.showmodal" debí decir "form1.showmodal" Bueno... eran las 11 de la noche...