Cerrar todas las Ventanas MDIChild

[[Lepe]]

Se me ocurre lanzar el evento OnCloseQuery de cada mdichild, así sabemos si quiere abortar o no.

Supongo que los mdichilds se liberan de memoria al cerrarlos, o tendríamos que restaurar su evento OncloseQuery, que ya son palabras mayores

Código Delphi [-]
procedure TMainform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  i : Integer;
  Continuar:Boolean;
begin
  if MDIChildCount <> 0 then
    for I := 0 to MDIChildCount - 1 do 
    begin
      if Assigned(MdiChildre[i].OnCloseQuery) then
      begin
         MdiChildre[i].OnCloseQuery(Self, Continuar);
         if Continuar then
         begin
           MdiChildre[i].OnCloseQuery := nil; // quitamos el evento, para que no se repita.
           MdiChildre[i].Close; // ya sabemos que se cerrará sin problemas
         end
         else
           Exit;
      end
      else 
          mdichildren[i].Close; // este no se puede quejar al cerrarlo, no tiene OnCloseQuery asignado
    end;
end;

Saludos

[[Lepe]]

... Yo tampoco caí en el orden inverso jejeje, copié y pegué de guglu.

Una cosita, creo que el CloseQuery está precisamente para eso, para preguntar si se debe cerrar una ventana o no, de hecho, si se asigna false a CanClose, no se lanza el evento OnClose. Por ello, se debería hacer las cosas de forma independiente.

En el CloseQuery se hace la validación de si debe cerrarse o no, asignando la variable CanClose;

En el FormClose, solamente establecer el Action correspondiente, que suele ser cafree.

Saludos

[[gluglu]]

Lepe, tienes toda la razón, el evento OnQueryClose está para eso, para preguntar si se quiere o no cerrar.

Aunque había leido muchas veces acerca de ello, nunca cae uno ciertamente hasta que le hace falta.

Y me parece perfecta la pregunta previa de si está o no asignado el evento OnCloseQuery para alguno de los MDIChild.

Muchas gracias tanto a Seoane como a Lepe.

Estoy en ello, cuando termine con todo, pondré el código definitivo.

[roman]

Yo lo haría así:

Cerrar los formularios hijo

Código Delphi [-]
(* No hay necesidad de preguntar si hay hijos abiertos *)
for I := MDIChildCount - 1 downto 0 do
  MDIChildren[i].Close;

OnCloseQuery del formulario hijo:

Código Delphi [-]
const
  Flags = MB_ICONWARNING or MB_YESNOCANCEL;

begin
  if HayCambios then
    case Application.MessageBox('¿Desea guardar los cambios?', 'Confirmar', Flags) of
      ID_YES: { código para guardar cambios };
      ID_NO: { no hacer nada };
      ID_CANCEL: abort { al ser una excepción, cancelará lo que reste del ciclo };
    end;
end;

// Saludos

[[gluglu]]

Gracias Roman también por tus comentarios.

Sigo atascado, y no sé el por qué ... .

De vuelta a mi aplicación de reservas de hoteles. Estoy intentando cerrar las reservas individuales que estén abiertas, que son MDIChild.

En cada Form de reserva tengo puesta una Transacción. Todo funciona perfectamente si cierro las ventanas individualmente. Pero al intentar llamar desde el formulario principal al evento OnCloseQuery de cada una de las reservas, y confirmar si o no para grabar cambios, pongo la Transacción inactiva al cerrar esa reserva.

Pues al parecer, y ya digo que para mi incomprensiblemente, me cierra también las transacciones correspondientes a cualquier otra reserva que tenga abierta.

Estoy más que seguro que no hay error de que se mezclen nombres y llamadas a cada una de las transacciones. Además funciona perfectamente si lo que hago es cerrar cada reserva 'a mano', sin la llamada desde el formulario principal y su correspondiente comprobación del OnCloseQuery de cada MDIChild.

[roman]

No entiendo cuál es el problema. Tú estás mandando cerrar todas las ventanas, y eso cerrará las transacciones de las ventanas que no tengan modificaciones y que estén antes de alguna que se cancele. Es decir, es el comportamiento esperado ¿no?

// Saludos

[[gluglu]]

Precisamente no.

Perdón, pero no lo expresé correctamente antes. Es que me dá error.

Cuando intento cerrar la segunda reserva, resulta que su propia transacción se ha cerrado ya, al parecer al momento de cerrar la transacción de la primera reserva, y por lo tanto me dá error, porque dice que la transacción está inactiva.

Es muy raro. Insisto, no 'debe' de haber errores en cada instancia de la transacción para cada una de las reservas, porque está situada en el propio form (ya lo discutimos ampliamente en otro hilo acerca de la conveniencia o no de colocarla en el propio form), y me he asegurado ya 5 o 6 veces que no existen errores en las llamadas desde otro sitio.