Fechar todos os forms da aplicação

18/12/2003

1

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


Responder

Posts

18/12/2003

Tnaires

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


Responder

18/12/2003

Beppe

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;



Responder

18/12/2003

Tnaires

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


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira