Buscar por:

Colocando data e hora no formulario

Código

 Obs:Para que funcione essa dica tem que se adicionar 

 o componente timer na paleta sytem

 e o componente statusbar na paleta win32

 clique duas vezes no componente statusbar na 

 tela e adicione dois panels na janela que irá 

 abrir

 Inicio do código

 //obs:procedure criada quando se dá duplo clique no 

 //componente timer, que está na paleta system

 procedure TFORM1.Timer1Timer(Sender: TObject);

 var

        vw_ano,vw_mes,vw_dia, vw_semana: word;

        vs_diasem : String;

        vs_mes : String;

 begin

 //Esse código serve para rodar a hora

 StatusBar1.Panels[0].Text:= '    ' + timetostr(time); 

 decodedate(now(),vw_ano,vw_mes,vw_dia);

        case vw_mes of

                1: vs_mes:= 'Janeiro';

                2: vs_mes:= 'Fevereiro';

                3: vs_mes:= 'Março';

                4: vs_mes:= 'Abril';

                5: vs_mes:= 'Maio';

                6: vs_mes:= 'Junho';

                7: vs_mes:= 'Julho';

                8: vs_mes:= 'Agosto';

                9: vs_mes:= 'Setembro';

                10:vs_mes:= 'Outubro';

                11:vs_mes:= 'Novembro';

                12:vs_mes:= 'Dezembro';

        end;

 vw_semana:= dayofweek(date);

                case vw_semana of

                1: vs_diasem := 'Domingo';

                2: vs_diasem := 'Segunda';

                3: vs_diasem := 'Terça';

                4: vs_diasem := 'Quarta';

                5: vs_diasem := 'Quinta';

                6: vs_diasem := 'Sexta';

                7: vs_diasem := 'Sábado';

        end;

 StatusBar1.Panels[1].Text:='  '+ vs_diasem + ', ' +inttostr(vw_dia) +' de '+ vs_mes + ' de '

 +inttostr(vw_ano);

 end;