Mega Code Archive

 

Categories / Delphi / Examples

 

Set the statusbar for display hints

Title: Set the statusbar for display hints 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;