contador de tempo regressivo
olá,
eu achei uma dica pra fazer um contador de tempo regressivo, coloquei no onclick de um botão pra testar, mas quando clico o programa fica travado.
o codigo é este:
var
Tempo : TTIME ;
begin
Tempo := StrToTime(´00:05:00´);
while tempo <> STrToTime(´00:00:00´) do
begin
Label1.caption := Timetostr(StrToTime(´00:05:00´) - Tempo) ;
Sleep(1000);
Application.processmessage ;
Tempo := Tempo - StrToTime(´00:00:01´);
end;
end;
o que eu devo alterar?[/code]
eu achei uma dica pra fazer um contador de tempo regressivo, coloquei no onclick de um botão pra testar, mas quando clico o programa fica travado.
o codigo é este:
var
Tempo : TTIME ;
begin
Tempo := StrToTime(´00:05:00´);
while tempo <> STrToTime(´00:00:00´) do
begin
Label1.caption := Timetostr(StrToTime(´00:05:00´) - Tempo) ;
Sleep(1000);
Application.processmessage ;
Tempo := Tempo - StrToTime(´00:00:01´);
end;
end;
o que eu devo alterar?[/code]
Etspaz
Curtidas 0
Respostas
Giordanocwb
19/12/2007
Tire a linha Sleep(1000), ele faz a tua aplicação esperar 1000 milisegundos a cada vez que executa isso, ou seja, 1 segundo.
T+
T+
GOSTEI 0
Etspaz
19/12/2007
vlw giordanocwb, deu certo!
GOSTEI 0