Справочная информация
При выборе из меню ? команды Справка появляется справочная информация — правила игры (рис. 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;
