Contagem regressiva
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
Curtidas 0
Respostas
Corcos
25/10/2007
alguem consegue me ajudar pls? :)
GOSTEI 0
Imoreira
25/10/2007
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.
GOSTEI 0
Comodelphi
25/10/2007
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;
GOSTEI 0