Ver Mensaje Individual
  #2  
Antiguo 08-09-2005
Avatar de yusnerqui
yusnerqui yusnerqui is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuba
Posts: 679
Reputación: 23
yusnerqui Va por buen camino
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.
__________________
Lo importante no es llegar primero, sino saber llegar.

Para que puedas llegar mejor lee la Guia de Estilo

Responder Con Cita