var
Tempo : TTIME;
begin
Tempo := StrToTime('00:10:00');
while tempo <> STrToTime('00:00:00') do
begin
Label1.caption := Timetostr(StrToTime('00:10:00') - Tempo);
Sleep(1000);
Application.ProcessMessages;
Tempo := Tempo - StrToTime('00:10:00');
end;
Estou com problemas , não esta contando.... ele para a contagem e esta dando uma lerdeza na aplicacao incrivel...
Como posso resolver ?
O que eu quero e fazer um contador , que conte ate 10 minutos e zere.... e retorne a contar depois....
Pergunta
Silva~
var Tempo : TTIME; begin Tempo := StrToTime('00:10:00'); while tempo <> STrToTime('00:00:00') do begin Label1.caption := Timetostr(StrToTime('00:10:00') - Tempo); Sleep(1000); Application.ProcessMessages; Tempo := Tempo - StrToTime('00:10:00'); end;Estou com problemas , não esta contando.... ele para a contagem e esta dando uma lerdeza na aplicacao incrivel...
Como posso resolver ?
O que eu quero e fazer um contador , que conte ate 10 minutos e zere.... e retorne a contar depois....
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.