Fórum Como faço um Cronometro? #203948

Implementei um simples exemplo de um cronometro. Neste projeto inseri 2 botões, 1 componente Time, 1 Label.
Obs> Se for copiar o código abaixo, precisará da versão 6 do Delphi! Não testei em outas versoes...

Espero que te ajude no seu desenvolvimento,
Um abraço,
Antonio.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
BtnAtivDes: TButton;
Timer1: TTimer;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BtnAtivDesClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
TimeOld:TDateTime;
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := FormatDateTime(´HH:MM:SS:ZZZ´, TimeOld - NOW);
Application.ProcessMessages ;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := ´00:00:00:000´ ;
TimeOld := Now;
end;

procedure TForm1.BtnAtivDesClick(Sender: TObject);
begin
with TButton(Sender) do
begin
case TButton(Sender).Tag of
0:begin
Timer1.Enabled := True;
Caption := ´Desativar´;
Tag := 1;
end;
1:begin
Timer1.Enabled := False;
Caption := ´Ativar´;
Tag := 0;
end;
end;//case
end;//with
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TimeOld := Now;
Label1.Caption := ´00:00:00:000´ ;
end;

end.