<b>第十一章　Delphi利用程序的利用（二）</b>[Delphi编程]

全部的利用程序都是TApplication的派生类.TApplication有三种办法调用在线帮忙系统.

　　HelpContext办法可调用WinHelp(关于Winhelp的内容见上节).它把HelpFile 中的文件名和一个文本代码传送给WinHelp.HelpFile是TApplication的字符串范例的属性,专门用来存放Help文件的.假如HelpFile属性是空字符,HelpContext返回假值,别的情形均返回真值.

　　procedure TForm2.Bin1Click(Snder : TObject)

begin

Application.HelpFile := DATAHLP;

Application.HelpContext(714);

　　 end;　

        HelpJump办法可调用WinHelp.它传送HelpFile属性中的文件名和帮忙文件的内容字符串(详见11.1节).内容字符串是帮忙文件中唯一辨识帮忙主题的字符串.假如HelpFile 属性是空字符,HelpFJump返回假值,别的情形均返回真值.

　　下面的例子利用了窗体上的一个按钮.当用户单击按钮, 帮忙系统调出了 DELPH2.HLP文件中的Default属性.因为Default属性的内容字符串是VclDefaultProperty.　

procedure TForm1.Tbn|Click(Sender : TObject)

begin

Application.HelpFile := 'DELPHI.HLP';

Application.HelpJump ('VclDefaultProperty');

end　

HelpCommand办法能快速拜候WinHelp函数中的各种号令.按照这些号令WinHelp履行差别的行动.表11.2是WinHelp函数的有关信息.

　　BOOL WinHelp(hwd,LpszHelpFile,fuCommand,dwData)　

表11.2 WinHelp的参数及含义

　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　参数　　　 　范例　　　　　描 述

───────────────────────────────

　　hwnd HWND 　　恳求帮忙的窗口

　　LpszHelpFile LPSTK 待显示的帮忙文件的文件名

　　fuCommand UNIT 恳求的帮忙范例

　　dwData DWORD 帮忙所需的描写表或关键字

　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　

　　HelpCOmmand向WinHelp传送fuCommand和dwData,fuCommand 是帮忙范例可为表11.3中的列值之一.　

表11.3 fuCommand的取值及含义

　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　值　　　　　 　　　 含 义

───────────────────────────────

　　HELP_LONTEXT 　显示dwData指定描写长的帮忙信息

　　HELP_CONTENTS 　显示帮忙的内容主题

　　HELP_SET_LONTENTS 假如dwData是Orol04则在一个弹出

　　　　　　　　　　　 　式窗口中显示Help主题

　　HELP_HELP PONHELP 显示Help利用程序的自身帮忙,函

　　　　　　　　　　　　 数忽视lpszHelpFile和dwData参数

　　HELP_INDEX 显示帮忙文件的索引

　　HELP_KEY 显示dwData指定的关键字的帮忙

　　HELP_MULTIKEY 显示一个关键字的帮忙,该关键字

　　　　　　　　　　　　 在一个可变关键字表中

　　HELP_QUIT 向Help利用程序报告文件不再利用

　　HELP_SETNDEX 把dwData指定的描写符作为帮忙文

　　　　　　　　　　　 　 件的当前索引

　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　

　　dwData参数的含义依靠于fuCommand的设置,假如fuCommand为HELP_CONTEXT,dwData为一个32 位的无标记整数,它包含一个描写表标识号:假如 fuCommand 为 HELP_KEY,dwData 则为一个指定长指针,所指的字符串是帮忙的关键字. 假如 fuCommand 为HELPMULLTIKEY,dwData则指向一个MULTIKEYHELP数据构造的长指针.

　　procedure TForm1.Bin1Click(Sender : TObject)

begin

Application.HelpFile := 'MyHlep.HLP'

Application.HelpCommand(HELP_CONTENTS,0);

end;