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]

Responder a