[Tutorial]Como colocar um relógio básico no Delphi.

[' Apple~* 19]

1º Adicione um Timer que se localiza na aba "System" do Delphi.

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

2º Adicione um Panel que se localiza na aba "Standard" do Delphi.

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

3º De um duplo clique no Timer (relógio), apague o begin e o end; e substitua por esse código:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Agora de um Ctrl+F9 e veja como seu relógio ficou! Ficará parecido com isso:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Créditos:

 

bidoow

' Apple~*

[bidoow 0]

Parabéns! Você ripou meu topico!

 

http://www.webcheats.com.br/forum/delphi-vb/363902-delphi7-relogio-simples.html

[DragonBoss 9]

velho, seu tpc ta igual o do meu parça ( o bidoow *---* )

 

a unika coisa eh ke tu coloko imagens, mas eh tao simples faze isso q as imagens nao diferencia tanto =P

 

o tuto fiko bom ( e bem parecido com o do bidoow), mas da uma peskisada antes d posta .

 

flw, abraços.

[Adeuk 1]

Prefiro, neste caso, usar um label... Ou algo do genêro. Além do que, você poderia por algo aqui, não? Do tipo...

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Ficaria - São + a hora.

 

Além de você poder fazer um code BEM mais simples..

panel1.caption:='São: '+timetostr(time)+' / Do dia: '+datetostr(date);

 

Além de poder mostrar o dia, é mais simples, hein?

 

E também, se bidow ja havia postado, os créditos são seus mesmo?

[Surfistinha£ 25]

Por favor coloque os creditos reais pos nao sao seus concordo com o adeuk ne um label ficaria melhor

[' Apple~* 19]

Parabéns! Você ripou meu topico!

 

http://www.webcheats.com.br/forum/delphi-vb/363902-delphi7-relogio-simples.html

 

Mals cara, os tutos são diferentes, mais mesmo assim eu já coloquei os créditos.

 

Desculpe mesmo.

[bidoow 0]

Mals cara, os tutos são diferentes, mais mesmo assim eu já coloquei os créditos.

 

Desculpe mesmo.

 

 

ta de boa:)

 

vlw

[matheusguerra 3]

legal cara

mais da pra fazer isso com uma label?

[Adeuk 1]

@Matheus

 

//Apague o begin

var

DateTime : TDateTime;

str : string;

begin

DateTime := Time;

str := TimeToStr(DateTime);

label1.Caption := 'São' + str;

end;