Как показать подсказки "hints" для элементов меню?

В примере создается обработчик события Application.Hint - подсказки меню изображаются
на status panel.

type
        TForm1 = class(TForm)
                Panel1: TPanel;
                MainMenu1: TMainMenu;
                MenuItemFile: TMenuItem;
                MenuItemOpen: TMenuItem;
                MenuItemClose: TMenuItem;
                OpenDialog1: TOpenDialog;
                procedure FormCreate(Sender: TObject);
                procedure MenuItemCloseClick(Sender: TObject);
                procedure MenuItemOpenClick(Sender: TObject);
        private
                {Private declarations}
                procedure HintHandler(Sender: TObject);
        public
                {Public declarations}
end;

var
        Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
        Panel1.Align := alBottom;
        MenuItemFile.Hint := 'File Menu';
        MenuItemOpen.Hint := 'Opens A File';
        MenuItemClose.Hint := 'Closes the Application';
        Application.OnHint := HintHandler;
end;

procedure TForm1.HintHandler(Sender: TObject);
begin
        Panel1.Caption := Application.Hint;
end;

procedure TForm1.MenuItemCloseClick(Sender: TObject);
begin
        Application.Terminate;
end;

procedure TForm1.MenuItemOpenClick(Sender: TObject);
begin
        if OpenDialog1.Execute then
                Form1.Caption := OpenDialog1.FileName;
end;
 
« Предыдущая статья