改造HINT的輸出方式

Application.HintColor:=clWhite;
  Application.HintPause:=100;

Delphi為每個可視構件（而非快速按鈕專屬）都提供了Hint及ShowHint特性，其中Hint屬性指定文本提示盒中的文本，而ShowHint屬性則決定鼠標指向構件時是否顯示文本提示盒，當ShowHint值為True時，顯示文本提示盒。用戶可在對象監視器（ObjectInspector）的屬性欄中設置或在程序中修改Hint及ShowHint屬性。

除此之外，Delphi還在類TApplication中提供了HintColor、HintPause、HintHidePause、HintShortPause幾個屬性來控制文本提示盒的輸出方式。

一般來說，HintColor、HintPause、HintHidePause、HintShortPause通常在Form的OnCreate事件中設定它們的值（如有需要的話），如以下的一段程序。


ProcedureTMainForm．FormCreate（Sender：TObject）；

begin

Application．HintPause：=0；｛使文本提示盒立即出現｝

Application．HintPause：=clBlue；｛以藍色小方框的方式出現｝

Application．HintHidePause：=10000；｛延長停留時間為10秒｝

Application．HintShortPause：=100；

end；

另外，在編程中，我們還可以通過TApplication的OnHint事件獲取鼠標指向構件的Hint文本。

事實上，Delphi提供的文本提示盒輸出方框、文本字型都太小，既不美觀亦不易看清。值得慶幸的是，Delphi2．0版提供了全部構件的源代碼，我們可以通過對類TApplication的源碼作一些小修改，增加一個HintFont的屬性，即可象修改HintColor一樣來修改文本提示盒的字體、字型大小等。

TApplication是在Forms單元里定義的，因此讓我們打開Forms．pas單元文件來作以下一些修改：


ProcedureSetHintColor（Value：TColor｝；

ProcedureSetHintFont（Value：TFont）；｛1997．04．19Mynewidea｝

PropertyHintColor：TColorreadFHintColorWriteSetHintColor；

PropertyHintFont：TFontwriteSetHintFont；｛1997．04．19Mynewidea｝

ProcedureTApplication．SetHintColor（Value：Color）；

上增加一個過程


｛1997．04．19Mynewidea｝

ProcedureTApplication．SetHintFont（Value：TFont）；

begin

if （ValueΙΛnil） and （FHinWindowΙΛnil） then

FHintWindow．Canvas．Font：=Value；

end；｛1997．04．19Mynewidea｝


別忘了在新增的語句旁作一些必要的注釋，如上面的｛1997．04．19Mynewidea｝，可以很清楚地知道哪些語句是你自己加進去的。

將修改后的Forms．pas存盤，然后重建庫文件，以后在你的庫文件里，類TApplication就多了一個屬性HintFont，你就可以很輕易的通過HintFont屬性來修改文本提示盒的字體、字型大小了，如以下一段程序：


ProcedureTMainForm．FormCreate（Sender：TObject）；

Var

NewHintFont：=TFont．Create；

begin

NewHintFont：=TFont．Create；

NewHintFont．Name：=′楷體－GB2312′；｛設置字體為楷體｝

NewHintFont．Size：=12；｛設置字型大小為12｝

Application．HintFont：ΚNewHintFont；

end；

此外，Delphi繪制文本提示盒是在類THintWindow的方法ActivateHint中通過WindowsAPI資源函數SetWindowPos來實現的，這段代碼在Controls．pas單元文件里，有興趣的讀者可以進一步修改這段代碼以繪制其他任意形狀（如橢圓、圓等）而不僅僅是矩型方框的文本提示盒！但或許最好的方法是從類THintWindow繼承下來一個新類，并重載Activate