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:
