首先，在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. 备份\delphi\bin\delphi.hdx
3. 运行HelpInst应用程序
4. 打开\delphi\bin\delphi.hdx
5. 选择keywords |Add菜单项并选择Sberee.buf
6. 选择File|Source菜单项
7. 退出HelpInst
8. 因为WinHelp需要知道STEREO.HLP的位置所以要做以下其中之一：
a. 把STEREO.Hlp复制到\delphi:\bin\目录下；
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的帮助内容。