Buscar por:

Status bar como trabalha-lo

Código

{Como utilizar o Hint na(StatusBar) vamos Fazer passo a passo  obs.....Foi feito no Delphi7 e testado }

{Na Paleta do delphi ache Win32>StatusBar click nele e coloque o no form1 com statubar1 ressaltado vá ao Object Inspector  > Properties>Panels ao lado click nos pontinhos vai abrir uma caixa chamada Editing StatusBar1.panels click no icone Add New nela na caixa vai aparecer 0-TStatusPanel , ai feche a caixa }

{vá na paleta do delphi standard click no label e coloque o no form1   }

{Vamos ao codigo na private  declaração    { Private declarations }coloque igual ao codigo abaixo}

 private

    { Private declarations }

  Procedure ExibirHint(sender:TObject);

{Acima declaramos a Procedure Chamada {ExibirHint}assim como acontece com com variaveis precissamos declara_la a procedure  antes de determinar quais ações serão executadas por ela.Vamos agora definir os comandos que serao executados pela procedure coloque o codigo abaixo}

implementation

{$R *.dfm}

Procedure TForm1.ExibirHint(sender:TObject);

begin

StatusBar1.Panels[0].Text := Application.Hint;

end;

{Analizando o código:Como você ja sabe todos os comandos das procedures devem ser declaradas  abaixo da implementation}

{$R *.dfm}

 {Na primeira linha do codigo fazemos a referencia a procedure que declaramos anteriormente .Utilizamos a declaração  TForm1(referindo _se ao objeto formulario)antes do nome Procedure- no caso ExibirHint - devido a mesma pertecer ao objeto formulario

Na segunda linha iniciamos a procedure com o comando begin.Na terceira linha determinamos que , o controle StatusBar, o primeiro panel (lembre_se que o primeiro painel e indentificado pelo numero 0 )recebera o texto referente a propiedade   hint   do objeto que o mouse estiver em cima.Por exemplo quando o mouse estiver encima do label1 , aparecera no primeiro painel do controle BarraStatus.Por fim,encerramos a procedure com o comando  end    }

{Va a janela Object TreeView e selecione o componente Form1 resalta ele e em seguida vá ao Object Inspector  e events >ONClick ai voce de dois clicks ao lado  e entre o begin e end; digite o codigo abaixo  }

procedure Tform1.FormCreate(Sender: TObject);

begin

  Application.OnHint:=ExibirHint;

end;

{tecle F12  , estando no  .... form1  'formulario principal' ressalta label1  va ao  Object Inspector  > Properties>Hint e ao seu lado escreva  ' Testando ' no mesmo Properties > Showhint  coloque true}

{ufa agora e so testar tecle F9 assim que rodar passe o mouse em cima de label1 aparecera 'testando' no lebel1 e na barra status embaixo..Espero ter contribuido }