Листинг 1

ОписаниеклассаTHhореn

THhopen = class(Telecontrol)

Private

FIntf: _DHhopen;

FunctionGetControlInterface: _DHhopen;

Protected

procedureCreateControl;

procedureInitControlData; override;

Public

functionOpenHelp(constHelpFile: WideString; constHelpSection: WideString): Integer;

procedureCloseHelp;

propertyControlInterface:_DHhopen readGetControlInterface;

propertyDefaultInterface:_DHhopen readGetControlInterface;

Published

propertyisHelpOpened: WordBool index 1readGetWordBoolProp

writeSetWordBoolProp storedFalse;

End;

Класс Hhopenпредоставляет два метода: OpenHelpи CloseHelp.

Метод OpenHelp обеспечивает вывод справочной информации, метод CloseHelp– закрывает окно справочной системы.

У метода OpenHelp два параметра – имя файла справочной информации и имя раздела, содержимое которого будет выведено. В качестве имени раздела надо использовать имя HTML-файла, который применялся программой HTML Help Workshop в процессе создания СНМ-файла. Следует обратить внимание на то, что оба параметра должны быть строками WideChar.

Программа, чье диалоговое окно приведено на рис. 38, а текст - в листинге 2, демонстрирует использование ActiveX-компонента Hhopen для вывода справочной информации. Компонент Hhopen добавляется в форму обычным образом. Так как во время работы программы он не отображается, то его можно поместить в любое место формы.

Рис. 38. Окно программы Использование ActiveX.

Листинг 2. Использование компонента Hhopen

Unitushh;