[Resolvido] Timer Regressivo

[orc 0]

Galera preciso de uma força preciso criar um timer regressivo HH:MM:SS alguem ai tem alguma dica ???

[Rodrigo Miss 1]

Opa e aew? beleza ?

Uma das formas seria você colocar 1 Label e + 1 Timer no seu form :

var
  Form1: TForm1;
  ANow, AMax: TTime;

//Variavel Global ...

 

procedure TForm1.FormCreate(Sender: TObject);
begin
  ANow:= Time;
  AMax:= Time + StrToTime('00:00:10');
  Label1.Caption:= TimeToStr(AMax);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (AMax >= aNow) then
  begin
	aMax:= aMax - StrToTime('00:00:01');
	Label1.Caption:= TimeToStr(aMax);
  end;
end;

[orc 0]

Opa e aew? beleza ?

Uma das formas seria você colocar 1 Label e + 1 Timer no seu form :

var
  Form1: TForm1;
  ANow, AMax: TTime;

//Variavel Global ...

 

procedure TForm1.FormCreate(Sender: TObject);
begin
  ANow:= Time;
  AMax:= Time + StrToTime('00:00:10');
  Label1.Caption:= TimeToStr(AMax);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (AMax >= aNow) then
  begin
	aMax:= aMax - StrToTime('00:00:01');
	Label1.Caption:= TimeToStr(aMax);
  end;
end;

 

Rodrigo mexi aqui mexi ali mexi aculá tirei uma coisa aqui puis lá, por fim ta do jeito que eu quero valeu pela linha de raciocínio , funfando redondinha

 

valeu

[Rodrigo Miss 1]

Joia ... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif