Fechar todos os forms da aplicação

18/12/2003

0

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

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

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar