Artigo Clube Delphi Edição 29 - Hints personalizados no StatusBar

Figura 1. Hints na barra de status do Microsoft Word

OnShowHint

Podemos contornar essa limitação sem muita dificuldade, usando o componente TApplicationEvents, que serve para interceptar os eventos de nível de aplicação – aqueles que são disparados pelo objeto global Application.

Manipulando o evento OnShowHint de TApplicationEvents podemos fazer um TStatusBar exibir hints individuais para cada painel. O evento OnShowHint tem o seguinte formato:

  TShowHintEvent = procedure ( var HintStr: string;

    var CanShow: Boolean; var HintInfo: THintInfo) of object;

O parâmetro HintStr define o texto do hint; CanShow é um valor booleano que, se verdadeiro, permite a exibição do hint; HintInfo é um registro que contém informações sobre a aparência e o funcionamento do hint. Você pode alterar os campos de HintInfo para personalizar a exibição do hint. Veja na Figura 2 uma descrição dos campos de THintInfo.