tiempo restante

[fedeloko]

hola a todos les agradezco de antemano que pierdan un momento de su tiempo para responderme esta duda: tengo que hacer un cronometro, descendente que se le pueda setear el tiempo inicial y decremente hasta cero, para q se vea en un form. Alguien sabe de algun componenteque herede de timer o sino como lo tendria que hacer con un timer ???? gracias a todos....

[roman]

Pues sí, lo puedes hacer con un Timer aunque ya se mencionó hace poco que no es muy preciso.

Pon un Timer con su Interval a 1000 (1 segundo), suponiendo que quieres contar segundos. En una variable aparte, guarda el tiempo inicial, digamos Tiempo := 84 y en el evento OnTimer del Timer usas algo así:

Código Delphi [-]
{ Aquí haces algo más interesante con el contador }
Edit1.Text := IntToStr(Tiempo);

Dec(Tiempo);
if Tiempo < 0 then
  // Reinicias la cuenta
  Tiempo := 84;

// Saludos

[marcoszorrilla]

Esto es solamente una idea, pero de entrada funciona, quedan de hacer ciertas comprobaciones y mejorarla un poco.
Se necesita:
Un Tedit con una hora válida que sea superior a la actual por supuesto.
Un Timer
Un Boton.
Un Tlabel en donde vamos mostrando el tiempo que queda.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 Timer1.Enabled:=True;
 end;
 
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
 Label1.Caption:=TimeToStr(StrToTime(Edit1.Text) - Time);
 end;

Un Saludo.

[marcoszorrilla]

Ah el tiempo, el amigo Román se adelantó por menos de un minuto.

Un Saludo.