[DELPHi7] Relogio Simples

[bidoow 0]

Relogio Simples

 

Bem, como nosso amigo ℛiqu∊ postou para VB6, vou postar para Delphi7.

 

- Adicione um Timer (palheta System)

- Adiciona uma Label (palheta Standard)

 

Agora clique duas vezes no Timer, apague tudo e coloque o codigo:

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

DateTime : TDateTime;

str : string;

begin

DateTime := Time;

str := TimeToStr(DateTime);

label1.Caption := str;

end;

 

Agora execute !

 

Agora vamos fazer um botão para Ativar o Relogio e Parar o Relogio

 

- Adicione um Button (palheta Standard)

 

Coloque o Timer de Enabled para False,

 

Agora clique duas vezes 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;

 

Pronto, quando você clicar no botão ativará o relogio, e quando voce clicar novamente, parara o relogio.

 

creditos : eu

 

abraços pessoal

[Surfistinha£ 25]

Isso aew ja avia sido postado por varios members aqui em delphi msm fais tempo

Seria melhor colocar os créditos se nao vao achar que vc o ripo

Turtorial muito simples porem util

Muito Obrigado

[bidoow 0]

tá escrito lá

 

creditos : eu.

 

eu que fiz

[DarkSj 0]

quando vou compilar o relógio comessa do:

10:21:09

 

como fasso para ele comessar do 0:0?

[neivisson1 0]

quando vou compilar o relógio comessa do:

10:21:09

 

como fasso para ele comessar do 0:0?

 

É pq ta de acordo com o relogio do seu pc '-'

[DarkSj 0]

ah claro pois é um relogion e n um timer, valeoo!

[DragonBoss 9]

mto legal mesmo mano ^^

 

vlw ae pelo tuto, mto bem explikado.

 

flw, abraços.

[bidoow 0]

quando vou compilar o relógio comessa do:

10:21:09

 

como fasso para ele comessar do 0:0?

----

É pq ta de acordo com o relogio do seu pc '-'

 

isso ai, se voce quiser pra começa do 0:00 é cronometro !

procura na quicklist :D