Buscar

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

Publicidade

Vote na dica




Quantidade de votos: 3 votos
Aceitação: 20%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 02/11/07
Por: Alex
Visualizada: 54044 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009