Obrigado Wesley, vou testar Mto obrigado. ----- Original Message ----- From: BandaLemuel To: delphi-br@yahoogrupos.com.br Sent: Friday, April 20, 2007 8:12 AM Subject: Re: [delphi-br] Contador Regressivo
e em um botão ou no evento do componente que vc quiser.... faça assim... procedure ContadorRegressivo ; var Tempo : TTIME ; begin Tempo := StrToTime('00:05:00'); while tempo <> STrToTime('00:00:00') do begin Label.caption := Timetostr(StrToTime('00:05:00') - Tempo) ; Sleep(1000); Application.processmessage ; Tempo := Tempo - StrToTime('00:00:01'); end; end; Espero ter ajudado..Wesley ----- Original Message ----- From: Fernando Luiz Bortolanzza To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 19, 2007 8:46 AM Subject: [delphi-br] Contador Regressivo Ola pessoal, alguem tem um exemplo de como fazer um contador regressivo, tipo de 00:05:00 até 00:00:00? Vlw. [As partes desta mensagem que não continham texto foram removidas] ---------------------------------------------------------- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 269.5.4/768 - Release Date: 19/4/2007 05:32 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]