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;