In certi programmi è utile mostrare gli hint, oltre che vicino al mouse, anche in una status bar come fa ad esempio Internet Explorer. Quello che dobbiamo fare non è altro che aggiungere due righe di codice ai nostri programmi ed una status bar alla form.

procedure TForm1.StatusHint;
begin
  StatusBar1.Panels[0].Text := Application.Hint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := StatusHint;
end;