Delphi程序与Chm帮助关联的简单实现


本文整理自网络,侵删。

 

 Chm格式的帮助是从windows98以后才出现的新的格式,与.hlp格式相比,具有更简单的编辑方式、更丰富的画面。它是通过Chm制作工具对网页文件进行编译得到的,所以理论上你可以把帮助文件做的和网页一样漂亮。

 

最简单的制作方法:先用FronPage制作帮助文件,然后用HTML Help Workshop编译就可以得到*.chm的帮助文件了。HTML Help Workshop可以到微软的网站上去下载。

 

应用程序中的帮助可分为上下文关联和非关联两种。上下文关联,是指用户按F1键后,出现与当前焦点对象(如窗体、文本框、下拉列表框)相关的帮助画面;不同对象,出现的帮助不同。非关联帮助,是指在程序任何位置按F1键后,出现同一帮助画面。下面就这两种方式,谈谈在Delphi中的简单实现方法。

 

一、非关联的chm帮助

在Delphi中,你可以通过ShellExecute函数直接调用chm帮助文件,具体如下:

uses shellapi
.......
  var  HWndHelp:Hwnd;
     i:integer;
begin
  //检查帮助窗口是否已经存在
  HWndHelp:=FindWindow(nil,conHelpTitle);
  if HwndHelp<>0 then  // 如存在则关闭
    SendMessage(HwndHelp,WM_CLOSE,0,0);
  i:=ShellExecute(handle, ''''open'''',Pchar(strCurExePath+''''/help.chm''''''''),nil, nil, sw_ShowNormal);
  if i<>42 then
    Showmessage('''' help.chm 帮助文件损坏!'''');
end;

 

二、上下文关联的chm帮助

   在Delphi中实现上下文关联的chm帮助,可以调用Windows系统目录System32下的HHCTRL.OCX控件中的HtmlHelpA函数实现。 需要以下几个步骤:

 

1 设置相关控件的HelpContext属性。

  例,主窗体frmMain::10100 ,其中的文本框 edtInput:10101

对话框dlgReport:10200 ,其中的组合列表框 cbReportEdit:10201

 

2 声明HtmlHelpA函数

 

function HtmlHelpA (hwndcaller:Longint; lpHelpFile:string; wCommand:Longint;dwData:string): HWND;stdcall; external ''''hhctrl.ocx''''

 

3  F1按键响应

 

//公用函数ShowChmHelp显示不同帮助画面。
procedure ShowChmHelp(sTopic:string);
var
  i:integer;
begin
  i:=HtmlHelpA(Application.Handle,Pchar(ExePath+''''/help.chm’),HH_DISPLAY_TOPIC,sTopic);
  if i=0 then
  begin
    Showmessage('''' help.chm 帮助文件损坏!'''');
    exit;
  end;
end;

….

function TfrmMain.FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
begin
  case Data of
    10100: ShowChmHelp(frmMain.htm);
    10101: ShowChmHelp(''''edtInput.htm'''');
    …
    else  ShowChmHelp(default.htm'''');
  end;
end;

function TdlgReport.FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
begin
  case Data of
    10200: ShowChmHelp(''''dlgReport.htm'''');
    10201: ShowChmHelp(cbReportEdit.htm'''');
    …
     else  ShowChmHelp(default.htm'''');
  end;
end;

 

这样,通过不同窗体的FormHelp事件,就可以实现帮助的关联。

 

以上介绍了delphi应用程序与chm帮助关联的一种简单实现方法。如果要实现更复杂的关联(例如,与帮助页面内特定位置/书签的关联,请查看HtmlHelpA函数的说明。

相关阅读 >>

Delphi firedac 下的 sqlite [9] - 关于排序

Delphi批量删除同类文件(带通配符)

Delphi检查getelementbyid返回值的有效性

Delphi xe taskbar按钮用法

tidtcpclient控件中文指南

Delphi 延迟时间函数

Delphi 得到ip地址最后一个点后面的值

Delphi版的创建高权限进程

Delphi 利用for循环自我复制到全盘用timer监控

Delphi写的dll回调c#

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...