Delphi 應用程式進階應用：Hint 提示顯示與自訂元件說明系統安裝實務

Hint 提示系統的實作範例

在 TForm1 中宣告 DisplayHint 方法並於 implementation 區實作：將應用程式的 Hint 屬性指派給面板標題。關鍵在於於表單 OnCreate 事件中指定 DisplayHint 為 Application.OnHint 事件處理常式。執行程式時，滑鼠停留於選單或元件上方，狀態列即顯示定義的提示文字。

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure DisplayHint(Sender: TObject);
  end;

implementation
procedure TForm1.DisplayHint(Sender: TObject);
begin
  Panel1.Caption := Application.Hint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := DisplayHint;
end;

自訂元件線上說明系統安裝完整流程

Delphi 的多層說明引擎支援自訂元件的「內容敏感」說明，可將多個說明檔整合至 Delphi 說明序列，提供三種存取方式：設計時選取元件按 F1、物件檢視器中按 F1、說明系統搜尋主題。無需撰寫額外程式碼。

所需檔案清單

• STEREO.PAS - 元件原始碼
• STEREO.RES - 資源檔
• STEREO.DCR - 工具調色盤圖示
• STEREO.HPJ - 說明專案檔
• STEREO.RTF - 說明來源檔
• STEREO.HLP - 編譯後說明檔
• STEREO.KWF - 關鍵字檔（原文為 KUF，應為 KWF）

分階段安裝步驟

1. 安裝關鍵字檔

1. 退出 Delphi IDE
2. 備份 \delphi\bin\delphi.hdx
3. 執行 HelpInst 應用程式
4. 開啟 \delphi\bin\delphi.hdx
5. 選擇 Keywords | Add 選單，選取 Stereo.kwf
6. 選擇 File | Source 選單
7. 離開 HelpInst
8. 設定 STEREO.HLP 路徑：複製至 \delphi\bin\ 或修改 WINHELP.INI 加入 stereo.hlp=\usehelp

2. 安裝自訂元件

1. 進入 Delphi IDE
2. 選擇 Options | Install Components
3. 按 Add → Browse
4. 輸入路徑 \stereo
5. 確定完成安裝

3. 啟用自訂元件說明系統

1. 從元件調色盤 Sample 頁拖放 TStereoButton 與 TStereoSpeaker 至表單
2. 選取 TStereoButton 按 F1，顯示元件說明
3. 在物件檢視器選取 IsOn 屬性按 F1，顯示屬性說明
4. 主選單 Help | Topic 搜尋 Stereo 主題，顯示完整說明內容