Buscar por:

Statusbar (ajuda,dia,hora)

Código

StatusBar (Help, Data, Hora)

ADICIONANDO O STATUSBAR E OS PANELS:

 Primeiramente vá a paleta Win32 , escolha o componete StatusBar e coloque no Formulário.Dê um duplo clique no StatusBar, vai abrir uma janela, clique na pasta amarela Add New para adicionar os panels, nesse caso será 3, um para o Help, outro para a Data e outro para a Hora.

ADICIONANDO DATA E HORA NOS PANELS DO STATUSBAR:

- Vá na Paleta System e Escolha Timer e adicione ao Formulário;

- Clique no icone do Timer e vá em eventos e dê um duplo clique em OnTimer, ai faça:

Begin

  Statusbar1.Panels [1].Text := ' '+formatdatetime ('dddd","dd" de "mmmm" de "yyyy',now);// para data

  statusbar1.Panels [2].Text := ' '+formatdatetime ('hh:mm:ss',now);//para hora

End;

End.

Ou

Begin

 Statusbar1.Panels [1].Text := ' '+datetostr(date);// para data

 statusbar1.Panels [2].Text := ' '+timetostr(now);//para hora

end;

End.

ADICIONANDO HELP AOS CAMPOS:

- Clique no Campo que você quer que apareça a frase de ajuda, aquela que aperece quando o mouse fica em cima de um campo por algum tempo, em PropriedadesHint, vc escreve aquilo que aparecerá quando o mouse passar por cima do campo, depois vá em ShowHint e coloque True, para exibir a frase do Hint, Se Não Colocar ShowHint em True a frase só vai aparecer no StatusBar, mas para que apareça no StatusBar tem que se fazer o seguinte:

- Na Unit do form, ache Private e abaixo de {Private Declarations} crie a Procedure Showhint (Sender: TObject) ficará assim:

Private

{Private Declarations}

Procedure ShowHint (Sender: TObject);

- Depois vá até Implementation e abaixo de {$R *.dfm} faça o seguinte:

Implemation

{$R*.dfm}

Procedure Tnomedoform.ShowHint (Senser: TObject);

Begin

 Statusbar1.Panels[0].Text := GetLongHint (application.hint); //para aparecer a frase no statusbar 

End;

- Depois clique no Form e vá no Evento OnCreate e faça:

Begin

 Application.OnHint := ShowHint; //para abilitar a frase no componente

End;

Dica : Se na Propriedade Hint você escrever uma frase, colocar uma barra reta(|) e escrever outra frase, a 1° frase aparecerá na ajuda flutuante, a 2° aparecerá no StatusBar.Mas para fazer isso não se esqueça de deixar a opção ShowHint ativada nos campos.

PARA MUDAR CONFIGURAÇÔES NO STATUSBAR:

- Dê dois cliques no statusbar, escolha algum do statusbar adicianado na janela e nas Propriedades você pode mudar algumas configurações como:

Alignment - para alinhar o texto no statusbar

Bevel - para deixar o componente fundo, normal ou em relevo

Width - Para aumentar o tamanho do espaço