Hint na StatusBar do Delphi 2010

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta Quick como usar Hint na StatusBar do Delphi 2010

Olá galera, nesta Quick Tips, irei mostrar como podemos exibir um hint na barra de status, alguns podem achar que é moleza, sim realmente não é difícil veja como é simples.

 

procedure TFrmPrincipal.FormCreate(Sender: TObject);

begin

  //Maneira Natural como fazemos hoje em dia

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

end;

 

            OK então por que criar algo tão simples? Para quem utiliza Delphi 2010, verá que este código não funciona como nas outra versões, devido a mudanças internas na rotina que faz este mecanismos, porém pesquisando consegui achar uma solução, pois tenho sistemas que trabalham com este hint, mas como mudei para esta nova versão isso esta atrapalhando bastante.

            A solução que veremos agora resolve de maneira simples e prática este pequeno problema.

 

Vamos criar uma procedure chamada DisplayHint, na seção private do formulário, e adicionar uma StatusBar(e um panel), e um Edit com um hint para vermos o resultado.     

 

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls;

 

type

TFrmPrincipal = class(TForm)

  StatusBar1: TStatusBar;

  ApplicationEvents1: TApplicationEvents;

  procedure FormCreate(Sender: TObject);

private

  procedure DisplayHint(Sender: TObject);

  { Private declarations }

public

  { Public declarations }

end;

 

Em sua implementação vamos programar o seguinte :

 

Procedure TFrmPrincipal.DisplayHint(Sender: TObject);

begin

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

end;


Observação : Esta procedure pode ser modificada, para mudarmos a maneira e o componente no qual queremos exibir os hints de nossa aplicação, por exemplo, em um panel.caption, ou o próprio caption de um formulário, além de um simples label que só seja exibido na hora que o hinto for exibido.


 

E no evento onCreate do formulário vamos programar o seguinte :

 

procedure TFrmPrincipal.FormCreate(Sender: TObject);

begin

  Application.OnHint := DisplayHint;

end;

 

Com isso temos como exibir os hints de nossa aplicação na Statusbar e não mais no próprio componente como de costume. Para aqueles que querem exibir o Hint na StatusBar e no componente, basta deixar a propriedade ShowHint do componente desejado como True, agora para os que não quiserem este efeito basta deixar a mesma como False, tendo assim estas duas possibilidades ficando a gosto do desenvolvedor.

 

Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?