delphi中如何实现联机帮助

《delphi中如何实现联机帮助》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第十一章　Delphi应用程序的Help应用所有的应用程序都是TApplication的派生类。TApplication有三种方法调用在线帮助系统。　　HelpContext方法可调用WinHelp(关于Winhelp的内容见上节)。它把HelpFile中的文件名和一个文本代码传递给WinHelp。HelpFile是TApplication的字符串类型的属性，专门用来存放Help文件的。如果HelpFile属性是空字符，HelpContext返回假值，其它情况均返回真值。　　下面的例子使用窗体上的一个按钮，当

2、用户单击按钮，屏幕出现DATA.HLP文件中714号主题内容。　　　procedureTForm2.Bin1Click(Snder:TObject)beginApplication.HelpFile:=DATAHLP;Application.HelpContext(714)；　　end;　       HelpJump方法可调用WinHelp。它传递HelpFile属性中的文件名和帮助文件的内容字符串(详见11.1节)。内容字符串是帮助文件中唯一辨识帮助主题的字符串。如果HelpFile属性是空字符，Help

3、FJump返回假值，其它情况均返回真值。　　下面的例子使用了窗体上的一个按钮。当用户单击按钮，帮助系统调出了DELPH2.HLP文件中的Default属性。因为Default属性的内容字符串是VclDefaultProperty。　procedureTForm1.Tbn

4、Click(Sender:TObject)beginApplication.HelpFile:='DELPHI.HLP';Application.HelpJump('VclDefaultProperty');end　HelpCommand方法

5、能快速访问WinHelp函数中的各种命令。根据这些命令WinHelp执行不同的动作。表11.2是WinHelp函数的有关信息。　　BOOLWinHelp(hwd,LpszHelpFile,fuCommand,dwData)　表11.2WinHelp的参数及含义　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　　参数　　　　类型　　　　　描述───────────────────────────────　　hwndHWND　　请求帮助的窗口　　LpszHelpFileLPSTK待显示的帮助文件的

6、文件名　　fuCommandUNIT请求的帮助类型　　dwDataDWORD帮助所需的描述表或关键字　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　　　HelpCOmmand向WinHelp传递fuCommand和dwData，fuCommand是帮助类型可为表11.3中的列值之一。　表11.3fuCommand的取值及含义　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　　值　　　　　　　　含义───────────────────────────────　　HELP_LO

7、NTEXT　显示dwData指定描述长的帮助信息　　HELP_CONTENTS　显示帮助的内容主题　　HELP_SET_LONTENTS如果dwData是Orol04则在一个弹出　　　　　　　　　　　　式窗口中显示Help主题　　HELP_HELPPONHELP显示Help应用程序的自身帮助，函　　　　　　　　　　　　数忽略lpszHelpFile和dwData参数　　HELP_INDEX显示帮助文件的索引　　HELP_KEY显示dwData指定的关键字的帮助　　HELP_MULTIKEY显示一个关键字的帮助

8、，该关键字　　　　　　　　　　　　在一个可变关键字表中　　HELP_QUIT向Help应用程序报告文件不再使用　　HELP_SETNDEX把dwData指定的描述符作为帮助文　　　　　　　　　　　　件的当前索引　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　　　dwData参数的含义依赖于fuCommand的设置，如果fuCommand为HELP_CONTEXT，dwData为一个32位的无符号整数，它包含一个描述表标识号：如果fuCommand为HELP_KEY，dwData则为一个指定长

9、指针，所指的字符串是帮助的关键字。如果fuCommand为HELPMULLTIKEY，dwData则指向一个MULTIKEYHELP数据结构的长指针。　　下面的例子使用了窗体中的按钮。当用户单击按钮帮助系统将显示指定文件的帮助内容主题。　　　procedureTForm1.Bin1Click(Sender:TObject)beginApplication.HelpFile:='MyHlep.HLP'