Delphi7动态调用chm帮助文件,并使之打开指定的页面

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

      简单的制作方法:先用FronPage制作帮助文件,然后用HTML Help Workshop或者EasyCHM等软件编译得到*.chm的帮助文件了。HTML Help Workshop可以到微软的网站上去下载。 应用程序中的帮助可分为上下文关联和非关联两种。上下文关联,是指用户按F1键后,出现与当前焦点对象(如窗体、文本框、下拉列表框)相关的帮助画面;不同对象,出现的帮助不同。非关联帮助,是指在程序任何位置按F1键后,出现同一帮助画面。建议使用EasyCHM工具制作chm文件,可视化操作,相比HTML Help Workshop来说,操作简单。如下图所示:

Delphi7动态调用chm帮助文件,并使之打开指定的页面_第1张图片

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

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

Delphi7动态调用chm帮助文件,并使之打开指定的页面_第2张图片

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


相关实现代码如下:
1.声明Windows API函数HtmlHelpA

 

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

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

 
procedure TForm1.ShowChmHelp(sTopic: string );
const
  HH_DISPLAY_TOPIC
= 0 ;
var i:integer;
begin
  i:
= HtmlHelpA(Application.Handle,Pchar(extractfilepath(application.ExeName) + ' help.chm ' ),HH_DISPLAY_TOPIC,sTopic);
  
if  i = 0  then
  begin
      Showmessage(
' help.chm 帮助文件损坏! ' );
      exit;
  end;
end;

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

 

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.OnHelp:
= FormHelp;
end;

 

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

 

function TForm1.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  
case  Data of
       
10100 : ShowChmHelp( ' 1.html ' );
       
10101 : ShowChmHelp( ' 2.html ' );
       
else   ShowChmHelp( ' 3.html ' );
  end;
end;

function TOKBottomDlg.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  
case  Data of
    
20200 : Form1.ShowChmHelp( ' 6.html ' );
    
20201 : Form1.ShowChmHelp( ' 7.html ' );
    
else  Form1.ShowChmHelp( ' 8.html ' );
  end;

end;


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

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  
if  Key  =  vk_f1 then
    application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext);
end;

procedure TOKBottomDlg.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  
if  Key  =  vk_f1 then
    application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext);
end;

 

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


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

完整的代码清单,如下:

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

const
  HH_DISPLAY_TOPIC
= 0 ;
type
  TForm1 
=   class (TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Button1: TButton;
    procedure BitBtn1Click(Sender: TObject);
    function FormHelp(Command: Word; Data: Integer;
      var CallHelp: Boolean): Boolean;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  
private
    
{ Private declarations }
  
public
     procedure ShowChmHelp(sTopic:
string );
    
{ Public declarations }
  end;

var
  Form1: TForm1;

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

implementation

uses Unit2;

{$R *.dfm}
procedure TForm1.ShowChmHelp(sTopic:
string );
var i:integer;
begin
  i:
= HtmlHelpA(Application.Handle,Pchar(extractfilepath(application.ExeName) + ' help.chm ' ),HH_DISPLAY_TOPIC,sTopic);
  
if  i = 0  then
  begin
      Showmessage(
' help.chm 帮助文件损坏! ' );
      exit;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  OKBottomDlg.ShowModal();
end;

function TForm1.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  
case  Data of
       
10100 : ShowChmHelp( ' 1.html ' );
       
10101 : ShowChmHelp( ' 2.html ' );
       
else   ShowChmHelp( ' 3.html ' );
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//   ShowChmHelp('5.html');
//   WinExec(PChar('help.chm::1.htm'),sw_normal);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.OnHelp:
= FormHelp;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  
if  Key  =  vk_f1 then
    application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext);
end;

end.

 

unit Unit2;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls;

type
  TOKBottomDlg 
=   class (TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Edit1: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    function FormHelp(Command: Word; Data: Integer;
      var CallHelp: Boolean): Boolean;
  
private
    
{ Private declarations }
  
public
    
{ Public declarations }
  end;

var
  OKBottomDlg: TOKBottomDlg;

implementation

uses Unit1;

{$R *.dfm}

procedure TOKBottomDlg.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  
if  Key  =  vk_f1 then
    application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext);
end;

function TOKBottomDlg.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  
case  Data of
    
20200 : Form1.ShowChmHelp( ' 6.html ' );
    
20201 : Form1.ShowChmHelp( ' 7.html ' );
    
else  Form1.ShowChmHelp( ' 8.html ' );
  end;

end;

end.

你可能感兴趣的:(Delphi7动态调用chm帮助文件,并使之打开指定的页面)