Delphi - 如何在 Delphi XE 应用程序中使用 CHM HTML 帮助文件?
http://edn.embarcadero.com/article/27842文章介绍了如何使用 CHM 文件。
我执行了那里描述的所有步骤。
Added
const
HH_DISPLAY_TOPIC = $0000;
HH_DISPLAY_TOC = $0001;
HH_CLOSE_ALL = $0012;
function HtmlHelp(hwndCaller: HWND;
pszFile: PChar; uCommand: UINT;
dwData: DWORD): HWND; stdcall;
external 'HHCTRL.OCX' name 'HtmlHelpA';
和公共函数 HH`
function TForm1.HH(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
begin
if (Command = 0) and (Data = 0) then
HtmlHelp(Application.Handle,
PChar(Application.HelpFile),
HH_DISPLAY_TOC, 0);
CallHelp := False;
end;
在表单中创建
HelpDir:=ExtractFilePath(Application.EXEName);
Application.HelpFile:=HelpDir+'Sample.chm';
Application.OnHelp := HH;
在button1的OnClick事件上添加以下代码:
HH(0, 0, dummy);
点击按钮1后,光标会暂时变成沙漏状,仅此而已。
我做错了什么?
如何从 DelphiXE 应用程序中使用 CHM 帮助文件?
您正在使用的文章早于内置对 HTML 帮助的支持。这些天你做了以下事情:
- Include
HtmlHelpViewer
至少在您的一项使用条款中。
- Set
Application.HelpFile
到您的帮助文件的路径。
就是这样。您问题中的代码应该被删除。内置的帮助查看器负责处理所有这些细节。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)