Delphi7动态调用chm帮助文件,并使之打开指定的页面
来源:互联网 发布:淘宝创业综合 编辑:程序博客网 时间:2024/06/07 00:26
Chm格式的帮助是从windows98以后才出现的新的格式,与.hlp格式相比,具有更简单的编辑方式、更丰富的画面。它是通过Chm制作工具对网页文件进行编译得到的,所以理论上你可以把帮助文件做的和网页一样漂亮。
简单的制作方法:先用FronPage制作帮助文件,然后用HTML Help Workshop或者EasyCHM等软件编译得到*.chm的帮助文件了。HTML Help Workshop可以到微软的网站上去下载。 应用程序中的帮助可分为上下文关联和非关联两种。上下文关联,是指用户按F1键后,出现与当前焦点对象(如窗体、文本框、下拉列表框)相关的帮助画面;不同对象,出现的帮助不同。非关联帮助,是指在程序任何位置按F1键后,出现同一帮助画面。建议使用EasyCHM工具制作chm文件,可视化操作,相比HTML Help Workshop来说,操作简单。如下图所示:
在Delphi中实现上下文关联的chm帮助,可以通过调用Windows系统目录System32下的HHCTRL.OCX控件中 的HtmlHelpA函数实现。 下面就以一个包含两个窗体的小例子,谈谈在Delphi7中实现上下文关联CHM帮助的方法。
该程序包含两个窗体,主窗体Form1和弹出窗体OKBottomDlg。如下图所示
主窗体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
2.定义调用chm帮助文件的公共函数
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事件响应函数
begin
application.OnHelp:=FormHelp;
end;
4. 设置所有窗体的OnHelp事件
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按键事件
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函数的说明。
完整的代码清单,如下:
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.
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帮助文件,并使之打开指定的页面
- pb调用帮助文件的指定页面
- CHM帮助文件无法打开的解决办法
- CHM帮助文件无法打开的解决办法
- windows无法打开chm帮助文件的问题
- 如何调用.chm帮助文件
- CHM帮助文件打开乱码解决方案
- CHM帮助文件打开乱码解决方案
- C# winfrom 打开chm帮助文件
- JAVA打开CHM类型帮助文件
- 在HTML网页中打开chm格式的帮助文件
- VC中调用CHM帮助文件
- 通过C#调用CHM帮助文件
- VC中调用CHM帮助文件
- Delphi中调用CHM帮助文件
- delphi调用chm帮助文件实例
- delphi调用chm帮助文件实例
- Delphi调用CHM帮助文件代码
- Jbuilder9+Weblogic8.1安装配置
- 上投摩根亚太优势股票型基金
- SCJP考题4
- 干掉xp的防火墙(ICS)(支持win2003)
- BSTR、char*和CString转换
- Delphi7动态调用chm帮助文件,并使之打开指定的页面
- Windows中通过ipconfig获得网卡信息
- SCJP考题5
- 螺旋队列(转发)
- 一个算符文法分析的实现
- 让你的Windows2000和DOS7.0共存
- 制作dos7.0
- SCJP考题6
- 李阳疯狂英语突破对话(24)-我帮不上你的忙