Fórum Fechar Form´s - Retornar ao Primeiro #233349
20/05/2004
0
Olá a todos.
Tenho uma aplicação que abre diversos Form´s (6).
Gostaria que quando estiver no ultimo Form´s e o programa
ficar algum tempo sem operação ( 1 minuto).
A aplicação automaticamente fechasse os Form´s e retornasse até o primeiro.
Como posso fazer isso??
Obrigado
Neto
Tenho uma aplicação que abre diversos Form´s (6).
Gostaria que quando estiver no ultimo Form´s e o programa
ficar algum tempo sem operação ( 1 minuto).
A aplicação automaticamente fechasse os Form´s e retornasse até o primeiro.
Como posso fazer isso??
Obrigado
Neto
Neto
Curtir tópico
+ 0
Responder
Posts
20/05/2004
Rômulo Barros
Var
intC : Byte;
VerificarTempo(); // Verifica se já passou 1(um) minuto.
For intC := 0 To Application.ComponentCount -1 Do // Laça todos os componentes
If(Components[intC] Is TForm)Then // Se for um form então ...
If(TForm(Components[intC]).Name <> ´FormPrincipal´)Then // Se não for o form principal então "Fecha"
TForm(Components[intC]).Close;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)