Mega Code Archive

 

Categories / Delphi / Examples

 

How to show hints in the Statusbar

Title: How to show hints in the Statusbar private procedure MyHint(Sender: TObject); end; implementation {....} procedure TForm1.FormCreate(Sender: TObject); begin Application.OnHint := MyHint; ShowHint := True; Button1.Hint := 'normal yellow hint|Text in Statusbar'; Button2.Hint := 'only yellow hint|'; Button3.Hint := '|text only in statusbar'; Edit1.Hint := 'same text'; end; procedure TForm1.MyHint(Sender: TObject); begin StatusBar1.SimpleText := Application.Hint; end;