Post – 1 | Criando um cronômetro em Delphi

Neste tutorial vamos trabalhar a criação de um cronômetro em Delphi.
Para iniciarmos crie um formulário similar ao mostrado abaixo:

No Form contem:

1 GroupBox

1 Label

1 Edit

1 Botão

1 Timer

Após inserir os componentes no formulário vamos iniciar a programação. No OnCreate do Formulário insira o código abaixo:

//O formulário inicia com o Timer := False

  Timer1.Enabled := False;

Aproveite e crie 2 variáveis dentro do private:

TimeOld: TDateTime;

INICIO :TDateTime;

{Mais abaixo iremos entender suas funcionalidades}

Feito isso, dê um clique duplo no Timer e coloque o seguinte código:

//O label receberá o tempo que será calculado de acordo com o que for inserido no edit

Label1.Caption := FormatDateTime('HH:MM:SS:ZZZ', INICIO + NOW -TimeOld);

Em seguida dê um duplo clique no botão e insira o código abaixo:

INICIO := StrToDateTime(EDIT1.Text); //Inicia a contagem a partir da hora informada no Edit

  if Button1.Caption = 'Ativar' then //Se o texto Botão for igual a ATIVAR

  begin

    TimeOld := Now;                  //Inicia uma nova contagem

    Timer1.Enabled := True;          //Ativa o Timer

    Button1.Caption := 'Desativar';  //O texto do botão fica DESATIVAR

    Edit1.Enabled := false;          //Desabilita a edição do Edit

  end

  else

  begin                      //Se o texto do botão for DESATIVAR

    Timer1.Enabled := False; //Timer fica false

    Button1.Caption := 'Ativar'; //Texto do Botão fica ATIVAR

    Edit1.Enabled := true;   //Habilita a edição do Edit - Caso o usuário queira iniciar a contagem de um tempo específio

  end;

Clique aqui para baixar o fonte
Pronto! Agora é só alegria.

Qualquer dúvida contatem-me por e-mail: wesleymenezzes@gmail.com

Obrigado e não esqueçam de curtir e compartilhar nossos posts. Deus abençoe.