Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
В примере создается обработчик события 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;

https://delphiworld.narod.ru/

DelphiWorld 6.0