Olá Moked
Coloca assim
Duracao := Duracao + 1 / 86400; // Vc soma na variavel TDateTime a fração
de um segundo. 1 corresponde a um dia inteiro (24 horas) / por 24 horas em
segundos
lblTempo.Caption := FormatDateTime('hh:mm:ss', Duracao);
Espero ter ajudado
Fabrício
----- Original Message -----
From: Moked - Tamara (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Friday, November 04, 2005 11:18 AM
Subject: [delphi-br] Simular cronometro com TIMER
Estou com um pequeno problema para simular um cronometro com o timer, Estou
usando o seguinte código:
Tempo := Tempo + 1;
Duracao := StrToTime(IntToStr(Tempo));
lblTempo.Caption := FormatDateTime('hh:mm:ss', Duracao);
Mas o resultado obtido não é o esperado, o incremento no label está sendo em
horas e não sem segundos como deveria, e ao superar 24, ocorre erro.
Alguém poderia me ajudar?
Obrigada,
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br
Grau de Sigilo: Confidencial Reservado Interno Amplo
Nível de Prioridade: Alto Médio Baixo
Destinatário/s: Lista de divulgação
-------------------------------------------------------------------------
Tamara
"O emitente da mensagem é o responsável por seu conteúdo e divulgação,
proibindo
sua reprodução sem a prévia autorização do mesmo".
Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
comprometimento com os Custo envolvidos!
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
