Fechar Form´s - Retornar ao Primeiro

Delphi

20/05/2004

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


Neto

Neto

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

20/05/2004

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;



GOSTEI 0
POSTAR