cerrar todos las ventanas hijas

[Caminante]

Empezado por mjjj

una alternativa es ejecutar el procedimiento OnClose desde el mainform, pero no se que parametros pasarle.

Código Delphi [-]
procedure Tmainform.Button1Click(Sender: TObject);
var i: integer;
begin
For i:=MDIChildCount-1 downto 0 do
begin
//MDIChildren[i].Close;
mdichildren[i].OnClose(nil, cafree);  // que parametro deberás ir acá??

end;
end;

No estas llamando al procedimiento Close sino al evento Onclose
El codigo deberia ser asi:

Código Delphi [-]
procedure Tmainform.Button1Click(Sender: TObject);
var i: integer;
begin
For i:=MDIChildCount-1 downto 0 do
     MDIChildren[i].Close;//Solo llamar a close si has programado algo en onclose se ejecutara solo
end;