首先，在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的幫助內容。
