Delphi7程序中上下文关联chm帮助的实现

Delphi7程序中上下文关联chm帮助的实现

  作者:李新  [email protected]  QQ1348513

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

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

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

   Delphi中实现上下文关联的chm帮助,可以通过调用Windows系统目录System32下的HHCTRL.OCX控件中的HtmlHelpA函数实现。 下面就以一个包含两个窗体的小例子,谈谈在Delphi7中实现上下文关联CHM帮助的方法。

    该程序包含两个窗体,主窗体frmMain和弹出窗体dlgQuery。如下图所示

 

主窗体frmMain中包含一个Edit1Memo1,查询对话框dlgQuery中包含一个Edit1ComboBox1。将它们的HelpContext属性设为大于0的整数值。例如,主窗体frmMain.HelpContext=10100 ,其中的文本框 Edit1.HelpContext=10101, Memo1.HelpContext=10102对话框dlgQuery.HelpContext=10200,其中 Edit1. HelpContext=10201ComboBox1. HelpContext=10202。.

将所有窗体的KeyPreview属性设为True,响应窗体的键盘事件;然后,编写F1按键的响应代码,调用chm帮助文件中的页面。这样,在不同位置(不同对话框或者不同控件)F1键,程序将弹出与其HelpContext相关的帮助页面。

相关实现代码如下:

  1.声明Windows API函数HtmlHelpA

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

  2.定义调用chm帮助文件的公共函数

procedure ShowChmHelp(sTopic:string);

//公用函数ShowChmHelp,根据不同的参数显示不同帮助画面。

Const HH_DISPLAY_TOPIC=0;

var i:integer;

begin

i:=HtmlHelpA(Application.Handle,Pchar(ExtractFileDir(application.exename)

+'/help.chm'),HH_DISPLAY_TOPIC,sTopic);

  if i=0 then

  begin

      Showmessage('help.chm 帮助文件不存在或者文件格式损坏!');

      exit;

  end;

end;

  3.设置应用程序的Onhelp事件响应函数

procedure TfrmMain.FormCreate(Sender: TObject);

begin

  application.OnHelp:=FormHelp;

end;

  4. 设置所有窗体的OnHelp事件

function TfrmMain.FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;

begin

     case Data of

     10100: ShowChmHelp('MainFunction.htm');  

     10101: ShowChmHelp('ProjectManager.htm');

     10102: ShowChmHelp('FinanceInput.htm');

     else  ShowChmHelp('SystermIntroduction.htm');

   end;

end;

function TdlgQuery.FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;

begin

   case Data of

     10200: ShowChmHelp('QuickQuery.htm');

     10201: ShowChmHelp('SuperQuery.htm');

     else  ShowChmHelp('SystermIntroduction.htm');

   end;

end;

5. 所有窗体处理F1按键事件

procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

   if key=VK_F1 then

   begin

       application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext);

   end;

end;

procedure TdlgQuery.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

   if key=VK_F1 then

   begin

       application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext);

   end;

end;

 

这样,通过设置相关属性和编写有关代码,就可以实现程序与chm格式帮助的关联。

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

Delphi5下实现上下文关联帮助比Delphi7下要简单,不需要编写窗体FormKeyDown相应F1的代码,请见《Delphi程序与Chm帮助关联的简单实现(http://www.csdn.com.cn/program/880.htm)

    如果需要例子程序的源代码,可直接与作者联系。[email protected]

    如果需要例子程序的源代码,可直接与作者联系。[email protected]

你可能感兴趣的:(Delphi7程序中上下文关联chm帮助的实现)