[Delphi7] Relogio Simples

Olá pessoal, aqui vou ensinar a botar um relogio no seu programa, muito basico e facil.

Adicione um Timer [palheta System]
Adicione uma Label [palheta Standard]

Clique 2 vezes no timer, apague todo o codigo e coloque esse:


procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time;
str := TimeToStr(DateTime);
label1.Caption := str;
end;


Compile e teste!

Agora vamos botar botoes para parar e iniciar o relogio!

Adicione um Button [palheta Standard]

Coloque o Timer para False

De 2 clicks no button, apague tudo e coloque:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Timer1.Enabled=False then
Timer1.Enabled:=True
else
Timer1.Enabled:=False
end;


Abraços ~!