Destroy en OnClose de MDIChild

[roman]

Cierto, no había caido en eso. Pero a ver, lo que haces puede darte problemas por varias razones:

1. Se aconseja el uso de Free en lugar de Destroy;
2. No se aconseja destruir un formulario desde alguno de sus eventos y en su lugar debe usarse Action := caFree en el evento OnClose.

Te pongo una forma de hacer lo que deseas. Esta ya la he probado

1. Al formulario hijo déjalo sólo con el Action := caFree en el OnClose.
2. Cuando crees un nuevo formulario hijo, le pides que notifique a su padre cuando fallezca

Código Delphi [-]
with TFormHijo.Create(...) do
begin
  FreeNotification(Self);
end;

3. En el formulario padre redefine el método Notification para recibir tal notificación:

Código Delphi [-]
type
  TFormPadre = class(TForm)
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  end;

implementation

procedure TFormPadre.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;

  { Si el hijo se muere y ya no hay más (MDIChildCount = 0) ... }
  if (AComponent is TFormHijo) and (Operation = opRemove) and (MDIChildCount = 0) then
    ActualizarMenus;
end;

// Saludos

[[seoane]]

Sin palabras Roman, me encanta cuando te sacas cosas como esta de la manga. Esta me la guardo ...

[roman]

Pues te lo agradezco. De hecho, en mi opinión/gusto, esta técnica es la más apropiada para el sempiterno problema de crear un formulario sólo si no existe ya:

Código Delphi [-]
if not Assigned(FormHijo) then
  FormHijo := TFormHijo.Create(...);

FormHijo.Show;

Es el padre quien pone en nil la referencia FormHijo cuando recibe la notificación de defunción.

// Saludos

[ixMike]

Muchísimas gracias.

Como siempre, sencillo y eficaz.

Además, esto me va a ir de maravilla para otros muchos programas futuros (y algún otro presente)