转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
Delphi程序与Chm帮助关联的简单实现         ★★★★

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

作者:闵涛 文章来源:闵涛的学习笔记 点击数:2852 更新时间:2009/4/23 18:44:54

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

 

 作者:李新  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

[1] [2]  下一页


[聊天工具]从编译到反编译:CHM文件应用不求人  [常用软件]ABC Amber CHM Converter:CHM转换PDF
[Delphi程序]耶書制造 CHMmaker(即CHM帮助编辑器)推出2.87中文…  [Delphi程序]如何在Delphi应用程序中调用CHM文档
[Delphi程序]Delphi应用程序与Chm帮助关联的简单实现(源代码)  [Delphi程序]在Delphi中调用CHM帮助文件
[Web开发]W3C school HTML教程 CHM帮助  [电脑技术]ActionScript 2.0字典CHM版
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台