第十一章-Delphi应用程序的应用（二）（3）

第十一章-Delphi应用程序的应用（二）（3）2007-05-07首先，在TForm1对象中宣称DisplayHint方法，并在单元的implementation部分编写实现代码。在DisplayHint方法中，把应用程序的Hint属性赋给面板的标题。另一个重要问题是必须把DisplayHint方法作为处理OnHint事件的方法。窗体的OnCreate事件的代码解决了这个问题。

下面列出了程序的完整代码。当用户运行程序，把鼠标置于菜单或部件之上，在窗体的状态条中将出现定义的提示。

Type

TForm1 = class（TForm）

Button1: TButton;

Panel1: TPanel;

Edit1: TEdit;

procedure FormCreate（Sender: TObject）;

private

{ Private declarations }

public

procedure DisplayHint（Sender: TObject）;

end;

var

Form1: TForm1;

implementation

{$R *.FRM}

procedure TForm1.DisplayHint（Sender: TObject）;

begin

Panel1.Caption := Application.Hint;

end;

procedure TForm1.FormCreate（Sender: TObject）;

begin

Application.OnHint := DisplayHint;

end;

11.4 自定义部件的帮助安装

Delphi有一个功能强大的帮助搜询引擎，叫做多层帮助，能为自定义的部件提供“上下文敏感”帮助。多层帮助允许把自定义部件的多个帮助文件安装成Delphi 的帮助序列，以提供给用户一种内层访问帮助文件的方式，用户有三种方法访问帮助文件：

1. 设计状态选中部件，然后按F1；

2. 在自定义部件的Object Inspector窗口中按F1；

3. 在Delphi帮助系统选择搜询主题。

Delphi 在提供这种帮助机制时，不需要编写额外的代码。有些文件是自定义部件帮助系统所必须的，以下介绍安装的具体步骤。

安装所需的文件

STEREO.PAS 自定义部件的源代码

STEREO.RES 自定义部件的资源文件

STEREO.DCR 工具调色板图标0

STEREO.HRJ 帮助工程文件

STEREO.RTF 帮助源文件

STEREO.HLP 自定义部件的帮助文件

STEREO.KUF 关键字文件

安装步骤

11.4.1 安装关键字文件

1. 退出Delphi集成开发环境

2. 备份delphiindelphi.hdx

3. 运行HelpInst应用程序

4. 打开delphiindelphi.hdx

5. 选择keywords |Add菜单项并选择Sberee.buf

6. 选择File|Source菜单项

7. 退出HelpInst

8. 因为WinHelp需要知道STEREO.HLP的位置所以要做以下其中之一：

a. 把STEREO.Hlp复制到delphi:in目录下；

b. 在WinHELP.INI文件中加上stereo.hlp=usehelp；

11.4.2 安装自定义部件

1. 进入Delphi集成开发环境

2. 选择Option|Install Components菜单项

3. 选择Add

4. 选择Browse

5. 输入stereo

6. 选择OK

11.4.3 激活自定义部件帮助系统

1. TstereoButton和TStereeSpeaker部件从部件调色板上的Sample页拖至窗口；

2. 选择TStereoButton部件并按F1,屏幕上出现关于TStereoButton的帮助信息；

3. 在Object Inspector窗体口选择IsOn属性并按F1，屏幕显示IsOn属性；

4. 在主菜单中选择Help|Topic菜单项，并搜询Stereo 主题，屏幕将出现STEREO

.HLP的帮助内容。