Determinar en un Form Principal cuando se Cierra un Form Hijo

[Efren2006]

Mi problema es el Siguiente

Tengo una aplicacion que puede llamara varios formularios a travez de un menu,Toolabar,etc, Pero necesito determinar en el formulario Principal cuando se cierra el ultimo Formulario para efectuar una operacion.

No quiesiera hacer un Timer y chequear cuantas ventanas estan activas en este momento.

Existen alguna forma de hacer esto a travez de un Evento ??

Gracias de antemano.

[caifan_0883]

mmm. mira asi como tu describes yo utilizaria.

En mi form principal en la propiedad FormStyle que sea fsMDIForm, y las demas forms que sean fsMDIChild.

asi no recurririas a otras cosas.

Saludos!!

[Efren2006]

Gracias por tu tiempo

El problema realmente es que necesito realizar una (Funcion y/o Procedimiento) en mi Form Principal cuando se halla cerrado la ultima ventana abierta por el usurio

Saludos

[roman]

Puede haber varias maneras de hacer esto dependiendo del contexto exacto: ¿todos los formularios son del mismo tipo o tienen un ancestro común? Cuando se cierran los formularios, ¿se destruyen o sólo se esconden? ¿Son formularios MDIChild?

En fin, suponiendo que tú tienes control del momento en que se crean los formularios (es decir, que no se crean automáticamente al inicio) y que los destruyes al cerrarlos (poniendo Action := caFree en su evento OnClose), puedes valerte del método Notification del formulario principal para actualizar la cuenta:

Código Delphi [-]
type
  TMainForm = class(TForm)
  private
    FormCount: Integer; // cuenta de los formularios abiertos

  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  end;

implementation

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

  if (AComponent is TForm) and (AComponent.Owner = Self) and (Operation = opRemove) then
  begin
    Dec(FormCount);

    if (FormCount = 0) then
    begin
      {
        Aquí lo que desees hacer cuando se hayan cerrado
        todos los formularios.
      }
      ShowMessage('No more forms');
    end;
  end
end;

Al crear un formulario es necesario poner al principal como Owner y aumentar la cuenta de formularios:

Código Delphi [-]
with TFormularioHijo.Create(Self) do
  Show;

Inc(FormCount);

// Saludos

[Efren2006]

Roman

Exactamente lo que necesitaba,

Un millon de Gracias

[caifan_0883]

woow, ni se me habia ocurrido ese dato. Lo checare se ve interesante.

Saludos!!