利用OnHelp( )在BCB中实现上下文敏感的html help

关于Html Help，在CSDN上推荐得最多的是如何利用ShellExecute( )或HtmlHelp( )来打开相应的帮助文件和帮助主题。本人在查找了一些资料后试验成功一种在BCB中简单易行的显示上下文敏感的Html Help的方法，其效果和旧式的上下文敏感的WinHelp( )完全相同。这种方法的代码量小，而且可扩展性好，当你以后在帮助文件中增加主题时根本不需要再改动你的代码，只需要修改chm文件和窗体上各控件的HelpContext属性值即可。

假定程序的chm帮助文件中有三个主题文件1.htm、2.htm、3.htm，窗体上有3个TEdit控件，要达到的目的为：

当在第一个TEdit控件上按F1键时显示1.htm的内容，在第二个TEdit控件上按F1键时显示2.htm的内容，依次类推。这就是所谓的上下文敏感帮助。

当然你可以通过截获F1键并判断当前是哪个TEdit控件拥有输入焦点，从而调用ShellExecute( )或HtmlHelp( )来显示相应的html主题。但这种方法可扩展性不好，以后增加html文件时需要修改程序代码。

做法如下：

1、用文本编辑器直接编辑html help的project文件*.hhp，加入下面的内容。也可以通过html help workshop的界面加入。这相当于将3个html文件映射为3个context ID。之后重新编译你的project。

[ALIAS]

IDH_CHAPTER1 = 1.htm

IDH_CHAPTER2 = 2.htm

IDH_CHAPTER3 = 3.htm

[MAP]

#define IDH_CHAPTER1 1001

#define IDH_CHAPTER2 1002

#define IDH_CHAPTER3 1003

2、设置窗体上的3个TEdit控件的HelpContext属性分别为1001、1002、1003。

3、修改程序代码，重载TApplication->OnHelp（当然也可以重载各Form的OnHelp），利用HtmlHelp( )来显示相应的上下文敏感帮助。当Command取值为HELP_CONTEXT时，Data就是你按F1键时拥有输入焦点的那个控件的HelpContext属性值。

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

Application->HelpFile = "Main.chm";

Application->OnHelp = AppHelp;

}

//--------------------------------------------------------------------------

bool __fastcall TForm1::AppHelp(Word Command, int Data, bool &CallHelp)

{

switch(Command)

{

case HELP_CONTEXT:

HtmlHelp(GetDesktopWindow(), Application->HelpFile.c_str( ), HH_HELP_CONTEXT, Data);

CallHelp = false;

break;

default:

CallHelp = true;

}

return true;

}

//--------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{

HtmlHelp(NULL, NULL, HH_CLOSE_ALL, 0);

}

//---------------------------------------------------------------------------

这样就Ok了。上述没有保存Application->OnHelp的旧值，也没有处理Command为其它值的情况，可根据需要加上。