Vamos a hacer un cronometro sencillo pero muy útil.
Creamos un nuevo proyecto.
Ahora vamos a ponerle los componentes que usaremos.
1 Timer.
5 Label
3 botones
Los re dimensionamos a nuestro gusto, quedaría así:
Ahora el codigo.
Primero creamos unas variables globales.
delphi
private { Private declarations } public { Public declarations } minutos: integer; Segundos: integer;
El procedimiento del timer.
delphi
procedure TForm1.Timer1Timer(Sender: TObject); begin Segundos:= segundos +1; If segundos = 60 then begin segundos:= 0; minutos:= minutos +1; end; Label1.Caption:=IntToStr(Segundos); Label2.Caption:=IntToStr(Minutos); If minutos = 60 then begin minutos:= 0; end; Label2.Caption:=IntToStr(Minutos); end;
Y el procedimiento de los botones.
delphi
procedure TForm1.Button1Click(Sender: TObject); begin if Timer1.Enabled = true then begin Timer1.Enabled:= false; Button1.Caption:='Comenzar'; end else begin Timer1.Enabled:= true; Button1.Caption:='Detener'; end; end; procedure TForm1.Button2Click(Sender: TObject); begin segundos:= 0; minutos:= 0; Label1.Caption:=IntToStr(Segundos); Label2.Caption:=IntToStr(Minutos); end; procedure TForm1.Button3Click(Sender: TObject); begin Close; end;
Quedara asi:
[img width=640 height=389]http://img367.imageshack.us/img367/5710/crono1nl1.png[/img]
Y funcionando:
[img width=640 height=388]http://img367.imageshack.us/img367/3193/crono2xa3.png[/img]
Espero os guste.
Saludos
Si tenéis alguna duda haced un hilo nuevo y os ayudaremos con gusto.