Мой DELPHI – Программирование

Вопрос:
Как показать подсказки "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;