Cerrar todas las Ventanas MDIChild

[[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.

[[gluglu]]

Bueno, al parecer terminó funcionando

Se ha quedado de la siguiente manera :

Código Delphi [-]
procedure TMainform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  i : Integer;
begin
  for i := MDIChildCount - 1 downto 0 do begin
   if Assigned(MDIChildren[i].OnCloseQuery) then begin
     MDIChildren[i].Close;
     Application.ProcessMessages;
   end;
  end;
  for i := MDIChildCount - 1 downto 0 do
    MDIChildren[i].Close;
end;

Primero intento cerrar todas las ventanas en las cuales necesite hacer una comprobación antes del cierre, y por lo tanto aquellas que tengan un 'OnCloseQuery', y después sigo con las que no lo tienen.

Te esta manera si el usuario decide 'abortar' el proceso de cierre, aquellas ventanas que no necesiten de comprobación seguirán abiertas.

En el OnCloseQuery de las MDIChild que lo necesiten :

Código Delphi [-]
procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Option : String;
begin
 
  if Modificado then begin
 
    if (WindowState = wsMinimized) or (Height <> Constraints.MaxHeight) or (Width <> Constraints.MaxWidth) then begin
      WindowState := wsNormal;
      Height      := Constraints.MaxHeight;
      Width       := Constraints.MaxWidth;
      BorderIcons := BorderIcons - [biMaximize];
    end;
 
    if not Active then Show;  // Esto lo saqué de otro hilo y viene muy bien si
                                       // el MDIChild no está visible por delante de los demás
 
    Mostrar_Mensaje('Se realizaron Cambios. Quiere Guardar dichos Cambios ?',1);
    Option := Mostrar_Mensaje.ShowModal;
    Mostrar_Mensaje.Free;

    If Option = 'CANCEL' then begin
      CanClose := False;
      Abort;
    end;
 
    // Realizar las operaciones oportunas para grabar o descartar cambios
 
  end;
 
end;

Si no se necesita de esta comprobación, se ejecutará directamente el código que se halle en OnClose, entre otras la liberación de la memoria mediante el Free correspondiente.

Además incluyo la rutina que utilizo para la misma comprobación cuando se intenta hacer un cambio de usuario mediante mi propia pantalla de LogIn. Al cambiar de usuario lo que hago es también obligar a cerrar todas las ventanas activas.

Código Delphi [-]
procedure TMainform.LogInClick(Sender: TObject);
var
  i : Integer;
  Option   : Integer;
  Aux_Name : String;
begin
 
  if MDIChildCount <> 0 then begin

    Mostrar_Mensaje('Se cerrarán todas las Ventanas Abiertas. Continuar?',0);

    Option := Mostrar_Mensaje.ShowModal;
    Mostrar_Mensaje.Free;

    if Option = 1 then begin
      for i := MDIChildCount - 1 downto 0 do begin
        if Assigned(MDIChildren[i].OnCloseQuery) then begin
          MDIChildren[i].Close;
          Application.ProcessMessages;
        end;
      end;
      for i := MDIChildCount - 1 downto 0 do
        MDIChildren[i].Close;
    end
    else Exit;

  end;
 
  ActionMainMenuBar1.Enabled := False;
  LogIn := TLogIn.Create(Self);
  LogIn.ShowModal;
  LogIn.Free;
  ActionMainMenuBar1.Enabled := True;
 
end;

Después de todos los comentarios de los compañeros, no sé realmente por qué he tenido que incluir el 'Application.ProcessMessages'. La cuestión es que puedo tener abiertas varias instancias de un mismo form (en mi caso reservas de habitaciones). Y comenté anteriormente el problema que tenía con la transacción de cada una de esas instancias del mismo form.

Lo que si he podido comprobar con certeza es que si incluyo dicho 'Application.ProcessMessages' todo funciona correctamente, en cambio si lo omito, al cerrar la transacción de la primera instancia del form de reservas, me cierra también las transacciones de las demás instancias.

Saludos a todos, y una vez más gracias a todos por la ayuda prestada.