Hints for menu items

How can I create hints for Menu items?

On your form, we assume you have a MainMenu and a Statusbar



type

  TForm1 = class(TForm)

  ...

    procedure FormCreate(Sender: TObject);

  private

    procedure HintHandler(Sender: TObject);



...



procedure TForm1.FormCreate(Sender: TObject);

begin

  // Each time our application will have to display a hint

  // it will trigger the HintHandler procedure

  Application.OnHint := HintHandler;

end;



procedure TForm1.HintHandler(Sender: TObject);

begin

  // you can use GetLongHint(Application.Hint) function

  // to extract the long part of the hint if there is one

  StatusBar1.SimpleText := Application.Hint;

  if StatusBar1.SimpleText = '' then



    StatusBar1.Refresh; // To force the StatusBar to paint its panels again

end;

 

Share this article!

Follow us!

Find more helpful articles: