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

Hints personalizados no StatusBar

Adicione ajuda às barras de status

Hints são aquelas pequeninas janelas amarelas que surgem com dicas rápidas a respeito do objeto apontado pelo cursor do mouse. TStatusBar é o conhecido componente visual da barra de status, que segue as normas de interfaces comuns do Windows. Acontece que a Borland deixou de lado, por simplificação talvez, uma característica natural do controle StatusBar, os hints individualizados de cada painel da barra. Você pode verificar, por exemplo, que o Microsoft Word exibe dicas diferenciadas para cada quadro focalizado de sua barra de status (Figura 1).

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.