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]