Fórum Como inserir um relégio em um StatusBar #156821
30/04/2003
0
Joaomw
Curtir tópico
+ 0Posts
30/04/2003
Vega.x
Coloque no form principal um TTimer (fica na paleta SYSTEM)
No evento OnTimer do TTimer coloque:
[color=blue:67c4892ca6][b:67c4892ca6]StatusBar1.Panels[[color=red]I[/color:67c4892ca6]].Text:= FormatDateTime(´dd/mm/yyyy - HH:MM:SS´, Now);[/b:67c4892ca6][/color]
Onde [color=red:67c4892ca6][b:67c4892ca6]I[/b:67c4892ca6][/color:67c4892ca6] é o número do painel da StatusBar.
Espero ter ajudado.
Gostei + 0
30/04/2003
Vega.x
A linha em destaque é:
[color=blue:fc923fe8f9][b]StatusBar1.Panels[[/b:fc923fe8f9][/color:fc923fe8f9][b:fc923fe8f9][color=red:fc923fe8f9]I[/color:fc923fe8f9][/b:fc923fe8f9][b:fc923fe8f9][color=blue:fc923fe8f9]].Text:= FormatDateTime(´dd/mm/yyyy - HH:MM:SS´, Now);[/color:fc923fe8f9][/b:fc923fe8f9].
Gostei + 0
30/04/2003
Joaomw
espero poder retribuir sua dica
Gostei + 0
30/04/2003
Fernandocneto
coloque um objeto timer no form e a status bar, duplo click no objeto timer, e digite o codigo:
statusbar.panels[0].text := ´Hora: ´ + TimeToStr(Time);
espero ter ajudado!!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)