Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Пользовательский интерфейс / Как показать подсказки "hints" для элементов меню?

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

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru