Delphi dicas

Hora atualizavel na barra do form

{Coloque no from um Componente TTimer, no Evento OnTimer coloque o seguinte código}

procedure TFrmPrincipal.TimePrincipalTimer(Sender: TObject);

begin



        FrmPrincipal.Caption:=FormatDateTime('"Cadastro de Eventos - " dddd, d " de " mmmm " de " yyyy, " - "hh:mm:ss', Now);



end;



{para que seja mostrado já no primeiro momento a data e a hora no form, coloque o mesmo código no Evento OnActive do Form}



procedure TFrmPrincipal.FormActivate(Sender: TObject);

begin

        FrmPrincipal.Caption:=FormatDateTime('"Cadastro de Eventos - " dddd, d " de " mmmm " de " yyyy, " - "hh:mm:ss', Now);



end;



{Marcos Brivio da Costa}

por : Marcos Brivio Da Costa