Contagem Regresiva

[woryon]

beleza povão

Tem como alguém me arrumar um código de Ttimer para fazer contagem regresiva?

já procurei em sites de Delphi mais não achei. Pois quero coloca-la num label.

Flws

Vlw

[sem ideia p/ nick]

cara eu acabei de ler seu post, olha espero não estar falando M.

mais tipo voce pode fazer duas coisas....

captar a hora, do instante que o programa inicia... ou então por um botao.... assim

var

xx:integer;

yy:string;

begin

yy:=strtotime(now);

xx:=strtoint(yy);

repeat

xx:=xx-1;

label1.caption:=inttostr(xx);

sleep(50); //isso serve para dar um tempo, assim voce vai poder ver o time diminuindo

until (xx=1)

olha eu não sei se funciona não ! mais...testa ae ...

[woryon]

O código a sima não deu

Oque eu faço?!?!?!?!?!?!?!?!?!?!

alguém me ajude please.

Help me!!!

[ferj]

fiz um programa bem simples aqui que faz isso...

me passa seu e-mail que eu te envio, v@leu?

[ferj]

pronto, já enviei o e-mail.

Qualquer coisa, vou deixar o código fonte abaixo, valeu?

------------------------------------------------------------------------------------

unit Countdown;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Timer1: TTimer;

Label2: TLabel;

Label4: TLabel;

procedure Timer1Timer(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

numero:integer; { Declara uma variável número }

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);

begin

numero := 30; { Quando o form é ativado, essa variável recebe 30 }

end;

procedure TForm1.Timer1Timer(Sender: TObject);

{ Timer com interval em 1000 ou seja, um segundo }

begin

numero := numero - 1;

label1.caption := inttostr(numero);

if (label1.caption = '0') then

timer1.enabled := false;

end;

end.

[Corposemalma]

Testei.... Funciona direitinho...

Resolvido o Assunto? posso fechar?