procedure TForm1.Contents1Click(Sender: TObject);
begin
Application.HelpCommand(HELP_CONTENTS, 0);
end;
procedure TForm1.SearchforHelpOn1Click(Sender: TObject);
begin
Application.HelpCommand(HELP_PARTIALKEY, 0);
end;
procedure TForm1.HowtoUseHelp1Click(Sender: TObject);
begin
Application.HelpCommand(HELP_HELPONHELP, 0);
end;
Программный код, который вы предоставили, является примером создания меню помощи в приложении Delphi с использованием компонента TForm. Три процедуры вызываются, когда соответствующие кнопки меню "Помощь" кликуются.
Описание каждого процесса:
Contents1Click: Это процедура вызывается, когда пользователь кликнул кнопку "Содержание" в меню помощи. Она вызывает метод Application.HelpCommand с константой HELP_CONTENTS и пустым параметром (0). Это открывает систему помощи для отображения таблицы содержания.
SearchforHelpOn1Click: Это процедура вызывается, когда пользователь кликнул кнопку "Найти" в меню помощи. Она вызывает метод Application.HelpCommand с константой HELP_PARTIALKEY и пустым параметром (0). Это открывает диалоговое окно поиска, позволяющее пользователю искать конкретные темы в системе помощи.
HowtoUseHelp1Click: Это процедура вызывается, когда пользователь кликнул кнопку "Помощь на помощь" в меню помощи. Она вызывает метод Application.HelpCommand с константой HELP_HELPONHELP и пустым параметром (0). Это открывает страницу, объясняющую, как использовать систему помощи.
Альтернативное решение с использованием встроенной системы помощи Delphi:
Вы можете добавить компонент THelpMenuItem к вашей форме, установить свойство Index в индекс элемента меню, который вы хотите создать, и затем установить обработчик события OnClick на одну из процедур выше. Таким образом, вам не нужно писать отдельный код для каждого элемента меню.
Пример:
var
HelpMenuItem: THelpMenuItem;
// Создание компонента THelpMenuItem
HelpMenuItem := THelpMenuItem.Create(Self);
// Установка индекса элемента меню
HelpMenuItem.Index := 0;
// Установка заголовка элемента меню
HelpMenuItem.Caption := 'Содержание';
// Установка контекста помощи для этого элемента меню
HelpMenuItem.HelpContext := 1;
// Установка обработчика события OnClick
HelpMenuItem.OnClick := Contents1Click;
// Добавление компонента THelpMenuItem к меню "Помощь"
MenuHelp.Add(HelpMenuItem);
Таким образом, вы можете легко добавлять или удалять элементы меню и их соответствующие темы помощи.
В статье описано использование файла помощи в приложении Turbo Pascal с помощью процедур HelpCommand для вызова контекстного меню "Help", содержащего пункты "Contents", "Search for Help" и "How to Use Help".
