Delphi程序与Chm帮助关联的简单实现
2003-04-25 16:25
447 查看
Delphi程序与Chm帮助关联的简单实现
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
作者:李新 kelvinsdu@sina.com QQ:1348513
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函数的说明。
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
作者:李新 kelvinsdu@sina.com QQ:1348513
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程序与Chm帮助关联的简单实现
- Delphi程序与Chm帮助关联的简单实现
- Delphi应用程序与Chm帮助关联的简单实现(源代码)
- Delphi应用程序与Chm帮助关联的简单实现(源代码)
- Delphi7程序中上下文关联chm帮助的实现
- Delphi程序使用Chm帮助的一点修改
- delphi实现简单window窗口程序
- hibernate简单程序,实现从页面对数据库的增删改查(主从表关联)
- webView中简单实现两次返回键退出程序
- 用Delphi简单实现创建控件数组
- 本文实现了一个基于servlet技术的简单的csv文件导出的程序实例。
- Delphi XE5实现减少编译出来的程序体积
- [代码]Delphi实现检测程序是否在VMWare中运行
- Delphi程序的自动升级功能的实现(AutoUpdate使用指南)(转)
- 用Java实现的简单人品测试程序
- delphi不同计算机程序间通信用TServerSocket实现
- 用java编写一个简单的字符串加密解密程序,将字符串分成若干行,实现字符串以一列一列读取,并还原之前输入的字符串。这里实现4行输出。
- 用Delphi实现开机自动启动程序
- C语言简单校园导游程序的设计与实现
- JS简单实现自定义弹窗及程序中断,继续效果