Cerrar formularios

yusnerqui · #2 08-09-2005

Segun la ayuda de Delphi:

Cita:

Note: When the application shuts down, the main form receives an OnClose event, but any child forms do not receive the OnClose event.

por eso yo prefiero tener un procedimientico que me asegure que todo marchará bien:

Código Delphi [-]procedure TPrincipal.CerrarTodas;
var i : integer;
begin
  if MDIChildCount > 0 then
    For i := 0 to MDIChildCount-1do
      MDIChildren[i].Close;
end;

y en el evento onClose:

Código Delphi [-]procedure TPrincipal.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    CerrarTodas;
    Action := caFree;
end;

Espero que esto te sirva

Saludos.