Delphi 2009 TBalloonHint 氣球提示完整示例

TBalloonHint：帶標題、圖標的氣球式提示控件

TBalloonHint 提供比傳統 Hint 更豐富的提示效果：支援標題、正文、圖標（來自 TImageList），外觀類似系統氣球提示。

效果圖：

核心代碼

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.CustomHint := BalloonHint1;
  Edit1.CustomHint := BalloonHint1;
  BalloonHint1.Images := ImageList1;
  Button1.ShowHint := True;
  Edit1.ShowHint := True;
  Button1.Hint := '提示:|這是 Button1 的 Hint|0';  {標題|內容|ImageList 索引}
  Edit1.Hint := '敬告:|這是 Edit1 的 Hint|1';
end;

Hint 格式說明

Hint := '標題|正文內容|ImageList索引'，以 | 分隔三部分。ImageList 索引對應圖標序號。

窗體文件 (DFM) - 含 ImageList 嵌入圖片

object Form1: TForm1
  object Button1: TButton ... end
  object Edit1: TEdit ... end
  object BalloonHint1: TBalloonHint ... end
  object ImageList1: TImageList ... {內嵌 4 個 16x16 圖標的十六進制數據}
  end
end

優勢： 無需處理 OnShowHint 事件即可實現帶圖標的豐富提示，比手繪 THintWindow 簡單得多。