Como inserir um relégio em um StatusBar
30/04/2003
0
Como eu faço para inserir um relógio em um StatusBar???
Joaomw
Curtir tópico
+ 0
Responder
Posts
30/04/2003
Vega.x
Faça o seguinte:
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.
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.
Responder
30/04/2003
Vega.x
[b:fc923fe8f9][size=18:fc923fe8f9]Correção...[/[/size:fc923fe8f9]b]
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].
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].
Responder
30/04/2003
Fernandocneto
Como eu faço para inserir um relógio em um StatusBar???
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!!!
Responder
Clique aqui para fazer login e interagir na Comunidade :)
