К выше сказанному можно добавить следующее.
В общем случае может быть несколько файлов помощи - у каждой формы есть свое свойство HelpFile.
Для назначения пути к файлам, назначения файла помощи по умолчанию, а также для переопределения поведения THTMLHelpViewer может быть полезно реализовать интерфейс IHtmlHelpTester
Назначение методов должно быть понятно из их названия.
Метод ConvertWinHelp полезен для "нормализации" работы стандартных Action (THelpTopicSearch, THelpOnHelp и т.д.).
Под D2010 все хорошо работает.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
//TDataModule выбран для примера, реализовать интерфейс можно в любом удобном классе, например главном окне
type
TDM = class (TDataModule, IHtmlHelpTester)
...
protected
function CanShowALink( const ALink, FileName: String ): Boolean;
function CanShowTopic( const Topic, FileName: String ): Boolean;
function CanShowContext( const Context: Integer;
const FileName: String ): Boolean;
function GetHelpStrings( const ALink: String ): TStringList;
function GetHelpPath : String ;
function GetDefaultHelpFile: String ;
function ConvertWinHelp( var Command: Word; var Data: LongInt): Boolean;
...
function TDM.CanShowALink( const ALink, FileName: String ): Boolean;
begin
Result := true;
end ;
function TDM.CanShowContext( const Context: Integer;
const FileName: String ): Boolean;
begin
Result := true;
end ;
function TDM.CanShowTopic( const Topic, FileName: String ): Boolean;
begin
Result := true;
end ;
function TDM.GetHelpStrings( const ALink: String ): TStringList;
begin
Result := TStringList.Create;
Result.Add(': ' + ALink);
end ;
function TDM.GetDefaultHelpFile: String ;
begin
if Application.HelpFile <> '' then
Result := Application.HelpFile
else
if Application.MainForm.HelpFile <> '' then
Result := Application.MainForm.HelpFile
else
Result := ChangeFileExt(Application.ExeName, '.chm');
end ;
function TDM.GetHelpPath: String ;
begin
Result := ExtractFilePath(Application.ExeName);
end ;
function TDM.ConvertWinHelp( var Command: Word; var Data: Integer): Boolean;
begin
if (Command = 11 ) {HELP_FINDER} and (Data = 0 ) then //THelpContents
Command := 1 {HH_DISPLAY_TOC}
else
if (Command = 11 ) {HELP_FINDER} and (Data <> 0 ) then //THelpTopicSearch; Data=PChar('')
Command := 3 {HH_DISPLAY_SEARCH}
else
if (Command = 4 ) {HELP_HELPONHELP} then //THelpOnHelp
Command := 3 ; {HH_DISPLAY_SEARCH}
Result := true;
end ;
...
procedure TDM.DataModuleCreate(Sender: TObject);
begin
HtmlHelpViewer.HtmlHelpTester := Self;
...
