Fechar todos os forms da aplicação

Delphi

18/12/2003

Oi pessoal, estou precisando saber como fazer pra fechar todos os forms d minha aplicação. Tentei fazer o seguinte:
for i := 0 to Application.ComponentCount - 1 do
  if Application.Components[i].InheritsFrom(TForm) then
    // Qual o comando q eu ponho aki pra fechar?

Há alternativa mehor?
Muito obrigado pela atenção, sucesso


Tnaires

Tnaires

Curtidas 0

Respostas

Tnaires

Tnaires

18/12/2003

Opa galera precisa mais não
É assim:
for i := 0 to Application.ComponentCount - 1 do 
  if Application.Components[i].InheritsFrom(TForm) then 
    (Application.Components[i] as TForm).Close;

Sucesso


GOSTEI 0
Beppe

Beppe

18/12/2003

Usando o objeto Application não fecha forms criados com Owner diferente. Você pode usar Screen então.

for I := 0 to Screen.FormCount - 1 do
  Screen.Forms[I].Close;



GOSTEI 0
Tnaires

Tnaires

18/12/2003

Valeu Ataliba!
Essa maneira é bem mais enxuta.
Té +


GOSTEI 0
POSTAR