Cita:
Empezado por kurono
amigo delphius ya termine el cronometro y funciona perfectamente
Código Delphi [-] public { Public declarations } segundos,minuto,hora:integer; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin segundos:=segundos+1; label1.Caption:=inttostr(segundos); end; procedure TForm1.Button1Click(Sender: TObject); begin minuto:=0; segundos:=0; hora:=0; timer1.Enabled:=true; timer2.Enabled:=true; timer3.Enabled:=true; end; procedure TForm1.Timer2Timer(Sender: TObject); begin minuto:=minuto+1; label2.Caption:=inttostr(minuto); segundos:=00; end; procedure TForm1.Timer3Timer(Sender: TObject); begin hora:=hora+1; label3.Caption:=inttostr(hora); end; end.
pero como decias antes hay forma mas facil de hacer y me estaba preguntando si no habra un componente que haga estoy solo para reducir el tiempo de programacion en otra ocacion |
Tranquilamente lo puedes hacer con un solo Timer.
Bueno te doy una solución implementando el Now.
1. En el momento en que se desee dar comienzo al cronómotro guardamos en una variable TDateTime la hora actual:
2. En el evento onTimer ponemos algo como esto:
Código Delphi
[-]cronometro: string;
..
cronometro := TimeToStr(Now - HoraInicial);
luego, ya es cuestión de mostrarlo... Por ejemplo en la barra de título:
Código Delphi
[-]
Form1.Caption := cronometro;
Para que funcione adecuadamente no está demás decir que la propiedad Interval del TTimer debe ser de un segundo, o 1000 milésimas.
Saludos,