Alexandre Campos

Delphi

Página sobre a Linguagem
de programação da Embarcadero

Timer: criando um cronômetro

Aprenda a criar um cronômetro em Delphi

10-09-2013

Você pode usar um Timer para criar um cronômetro para sua aplicação, a fim de informar há quanto tempo seu software já está sendo executado. Coloque um timer (paleta System) e uma StatusBar (Win32) em seu formulário. Crie ao menos um Panel na StatusBar e deixe o evento OnTimer do componente Timer semelhante ao código abaixo:

procedure TMainForm.Timer1Timer(Sender: TObject);
var HoraStr, MinStr, SegStr : string ;
begin

Segundo := Segundo +1 ;

if Segundo >= 59 then begin
Segundo := 0 ;
Minuto := Minuto + 1;
end ;

if Minuto >= 59 then begin
Minuto := 0 ;
Hora := Hora + 1;
end ;

//formata hora, min e seg
if Hora < 10 then
HoraStr := '0'+Inttostr(Hora)
else
HoraStr := Inttostr(Hora) ;

if Minuto < 10 then
MinStr :='0'+inttostr(Minuto)
else
MinStr := inttostr(Minuto);

if Segundo < 10 then
SegStr := '0'+inttostr(Segundo)
else
SegStr := inttostr(Segundo) ;

//mostra Hora, Minuto e segundo na StatusBar, primeiro Panel
StatusBar1.Panels[0].Text := 'Tempo decorrido: '+HoraStr+':'+MinStr+':'+SegStr ;

end;

Note que a funçao acima pressupõe que você colocou uma StatusBar em seu form e adicionou a ela ao menos um panel. Caso prefira, você pode usar um Label, substituindo o comando que diz respeito a StatusBar por algo como:

Label1.Caption := 'Tempo decorrido: '+HoraStr+':'+MinStr+':'+SegStr ;

Fonte: ASMC

Usando Virtual-Key Codes - 27-03-2015

Usando a classe TDictionary - 26-03-2015

Sua Primeira Aplicação FireMonkey - 22-03-2015

Efeitos de imagem no Delphi - 22-03-2015

Criando um Tocador de Áudio com Playlist - 03-09-2013

Criando um Navegador Web com TWebBrowser - 03-09-2013

Personalizando o DBNavigator - 01-09-2013

Como Esmaecer um Formulário - 24-09-2010

- Todos os artigos -