Иллюстрированный самоучитель по Delphi 7 для начинающих

Справочная информация

При выборе из меню ? команды Справка появляется справочная информация – правила игры (рис. 15.14).

Рис. 15.14. Окно справочной информации

Процесс создания СНМ-файла подробно описан в гл. 14. Процедура, обеспечивающая вывод справочной информации, приведена в листинге 15.7.

Примечание
Перед непосредственным созданием процедуры, обеспечивающей вывод справочной информации, в главную форму необходимо добавить компонент HhOpen.

Листинг 15.7. Вывод справочной информации.

// выбор из меню? команды Справка
procedure TForm1.N3Click(Sender: TObject);
HelpFile: string; // файл справки
HelpTopic: string; // раздел справки
pwHelpFile: PWideChar;
// файл справки (указатель на строку WideChar)
pwHelpTopic: PWideChar;
// раздел (указатель на строку WideChar)
begin
HelpFile: = 'saper.chm';
HelpTopic: = 'saper_02.htm';
// выделить память для
WideChar-строк GetMem(pwHelpFile, Length(HelpFile) * 2);
GetMem(pwHelpTopic, Length(HelpTopic)*2);
// преобразовать ANSI-строку в WideString-строку
pwHelpFile: = StringToWideChar(HelpFile,
pwHelpFile, MAX_PATH*2);
pwHelpTopic: = StringToWideChar(HelpTopic,
pwHelpTopic,32);
// вывести справочную информацию
Form1.Hhopen1.OpenHelp(pwHelpFile,
pwHelpTopic);
end;