Fórum Contagem regressiva #347953
25/10/2007
0
Ola pessoal again :)
antes de mais nada eu procurei bastante sobre o assunto e não consegui encontrar nada que me ajude.
Criei uma tela de splash para mapear minha rede, ajustar horarios e algumas coisas a mais, e nessa tela tem um informativo e queria que ela ficasse uns 15 seg ´travada´ até um contador chegar a 0 e liberar o computador para o usuario trabalhar
a unica coisa que to me batendo é para fazer um timer com contagem regressiva de 15 seg, quando chegar a 0 ele libera, estou tentando com o TTimer mas até agora nada...
Obrigado
antes de mais nada eu procurei bastante sobre o assunto e não consegui encontrar nada que me ajude.
Criei uma tela de splash para mapear minha rede, ajustar horarios e algumas coisas a mais, e nessa tela tem um informativo e queria que ela ficasse uns 15 seg ´travada´ até um contador chegar a 0 e liberar o computador para o usuario trabalhar
a unica coisa que to me batendo é para fazer um timer com contagem regressiva de 15 seg, quando chegar a 0 ele libera, estou tentando com o TTimer mas até agora nada...
Obrigado
Corcos
Curtir tópico
+ 0
Responder
Posts
26/10/2007
Corcos
alguem consegue me ajudar pls? :)
Responder
Gostei + 0
26/10/2007
Imoreira
var
contador:integer=15;
No onTimer do timer;
dec(contador);
if contador=0 then
libera o meu form
Testa ai, eu não testei.
contador:integer=15;
No onTimer do timer;
dec(contador);
if contador=0 then
libera o meu form
Testa ai, eu não testei.
Responder
Gostei + 0
26/10/2007
Comodelphi
Acredito que para seu caso o melhor seria usar a rotina Sleep; Sleep(ms) pausa a execução do processo em milisegundos. então Sleep(15000); pause 15 segundos e continua;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)