Comprobar que todos los formularios de la aplicacion estan cerrados

[Colgueit]

Hola,

Tengo una aplicacion con muchos formularios, y quisiera comprobar antes de cerrar la aplicacion, es decir, antes de cerrar el menu principal, que algunos de los formularios (casi todos) estan ciertamente cerrados, si no estan cerrados lanzar un mensaje de error.

Conclusion, ¿como compruebo que los formularios estan cerrados? ¿alguna idea?.

Muchas Gracias

[marcoszorrilla]

Mírate

Código Delphi [-]
Screen.FormCount;

Un Saludo.

[freelance]

Desde el formulario principal consulta el valor de MDIChildCount.

Te recomiendo que el chequeo lo hagas en el evento onCloseQuery del formulario principal.


Espero haberte ayudado...

[dec]

Hola,

Se me ha ocurrido algo así después de un rato dándole vueltas:

Código Delphi [-]
function HasShowingFormsInScreen
 (alsoMainForm:boolean=false):boolean;
var
  i: integer;
begin
  Result := false;
  for i:=0 to Screen.FormCount-1 do
  begin
    if Result then
      Exit;
    if Screen.Forms[i].Showing then
    begin
      with Screen, Application do
      begin
        if (Forms[i] = MainForm) then
          Result := alsoMainForm
        else
        begin
          Result := true;
          Exit;
        end;
      end;
    end;
  end;
end;

Por cierto, gracias a Marcos y a freelance, quienes me han ayudado. A Marcos porque no recordaba la variable "FormCount" del objeto "Screen", y, a freelance, porque me picó a comprobar que la función de más arriba parece funcionar tanto en aplicaciones MDI (Multiple Document Interface) como SDI (Single Document Interface).

Por cierto, una posible forma de hacer uso de la función anterior, siguiendo lo que dice freelance de utilizar el evento "OnCloseQuery" del formulario principal de la aplicación:

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  { Sin tener en cuenta el formulario principal
  }
  if HasShowingFormsInScreen then
  begin
    ShowMessage('¡Cierra las ventanas que hace frío! ;-)');
    CanClose := false;
  end;

  { Teniendo en cuenta el formulario principal

  if HasShowingFormsInScreen(true) then
  begin
    ShowMessage('¡Cierra las ventanas que hace frío! ;-)');
    CanClose := false;
  end;
  }
end;

[Colgueit]

Que bien . Muchas gracias a todos, sobre todo a Dec, que me lo has dejado muy bien explicado .

¿Que haría yo sin la ayuda de la gente de este foro que tanto ayuda?

Gracias otra vez.
Saludos