Delphi, Colocando Hora e Data no StatusBar

Aprenderemos a colocar hora e data dentro de um StatusBar.


Primeiro adicione um StatusBar, localizado na paleta Win32:
Agora adicione um Timer:




Ok... agora vá na propriedade PANELS:

Clique nos três pontinhos, "...".

Adicione dois INS, como na figura abaixo:








Deverá ficar igual a imagem acima (com o 0 e o 1 TStatusPanels).
Vamos codificar... Clique duas vezes no Timer e cole o seguinte código:



statusbar1.Panels[0].Text:=timetostr(time);

statusbar1.Panels[1].Text:=datetostr(date);


Prontinho!

Por Junior Evangelista