Cerrar todas las Ventanas MDIChild

[[gluglu]]

He optado por una variable pública en el Formulario principal (MainCanClose) que si se opta por cancelar la operación de cierre, se pone al valor deseado dentro del form Child que se está cerrando en ese momento.

... lo que me obliga a modificar todas las rutinas de cierre de todos los formularios MDIChild para incluir esa llamada a la variable del formulario principal.

Código Delphi [-]
type
  TMainform = class(TForm)
...
  public
    MainCanClose : Boolean;
....
    
procedure TMainform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  i : Integer;
begin

  if MDIChildCount <> 0 then begin

    MainCanClose := True;

    for I := 0 to MDIChildCount - 1 do begin
      MDIChildren[i].Close;
      if not MainCanClose then begin
        CanClose := False;
        Exit;
      end;
    end;

  end;

end;

Código Delphi [-]
procedure TMDIChildCualquiera.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 
  ...
 
  If not PreguntadeCierre then begin
    MainForm.MainCanClose := False;
    Action := caNone;
  end;
 
  ...
 
end;

Si alguien sabe una solución mejor, sin tener que modificar todos los MDIChild, pues le agradecería mucho su comentario.

Saludos