[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:

Código:

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:

Código:

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

Abraços ~!
Post: Lucas

Muito bom gostei ira ajudar muitas pessoas que não sabe

Realmente delphi é mais facil que C++, é facim mesmo fazer esse relógio ^^

Esse relogio fico maneiro =)