Set the statusbar for display hints

Posted in Components

You should write ShowHint procedure and set it for onHint event of your application. Don't forget to set StatusBar1.SimplePanel to True.

procedure TForm1.ShowHint(Sender: TObject);
begin
  StatusBar1.SimpleText:=Application.Hint;
end;

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