Cronometro en un Label

[delphi.com.ar]

Empezado por creus

Necesito visualizar un cronometro en un Label en el momento que se selecciona un elemento. Logro colocar la hora completa con TimeToSTr pero solo quiero un contador que me indique de 0 a n.

Mi código:

Tiempo:=TimeToStr ( Time );
LabelTiempo.Caption:=Tiempo;


Gracias por la ayuda.

¿De "0 a n" en qué unidad de tiempo?

[creus]

Seguramente lo de 0 a n, no esta muy bien expresado, disculparme. Intento que el label muestre 0,1,2 se vayan observando los segundos,minutos y horas necesarios hasta lanzar el click de un Button, donde el cronometro se detendrá marcando, por ejemplo: 58 segundos.


Gracias y disculpar mi gramatica delphiana.

[[seoane]]

Coloca en un Form un Label, un Timer y un Boton. Entonces declara una variable global llamada Cominezo:

Código Delphi [-]
TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    Comienzo: TDateTime; //<-- La variable de la que hablo
  public
    { Public declarations }
  end;

En el evento del boton coloca esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:= not Timer1.Enabled;
  if Timer1.Enabled then
  begin
    Comienzo:= Time;
    label1.Caption:= TimeToStr(0);
  end;
end;

Y en el evento del Timer

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption:= TimeToStr(Time - Comienzo);
end;

Coloca, en la propiedades del Timer, la propiedad Enabled a False y el intervalo a 1000 o a 500, eso da igual.