Quick Tips: Componente ApplicationEvents

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)

Nesta quick tip veremos como usar o componente ApplicationEvents.

Quick Tips: Componente ApplicationEvents

 

Nesta quick tip veremos como usar o componente ApplicationEvents

 

Este componente nos permite interceptar eventos globais que ocorrem em nossa aplicação.

 

Para usá-lo basta inserirmos o mesmo no formulário e implementarmos os eventos que desejamos interceptar.

 

No nosso exemplo, usaremos para exibir todos os hints em uma statusBar.

 

Para isso, insira no formulário um botão, uma StatusBar e um ApplicationEvents.

Após isso, altere a propriedade ShowHint do botão e do formulário para True, além de definir um texto qualquer para a propiedade hint dos mesmos.

 

Adicione também um novo painel à statusBar, clicando duas vezes na mesma clicando em Add New Panel.

 

Depois vá no evento OnHint e escreva o seguinte código:

 

procedure TForm1.ApplicationEvents1Hint(Sender: TObject);

begin

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

end;

 

O resultado é o seguinte:

 


 

É isso aí pessoal, espero que tenham gostado.

Fiquem a vontade para criticar, tirar dúvidas e sugerir novos temas.
Abraço.

Ricardo Coelho

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