改造HINT的输出方式

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秒｝
为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）；
beginif（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来实
r> ActivateHint中通过WindowsAPI资源函数SetWindowPos来实
现的，这段代码在Controls．pas单元文件里，有兴趣的读者
可以进一步修改这段代码以绘制其他任意形状（如椭圆、圆等）
而不仅仅是矩型方框的文本提示盒！但或许最好的方法是从类
THintWindow继承下来一个新类，并重载Activate??Hint方
法，然后在应用程序开始处给变量HintWindowClass指派一个
新类实例

(摘自BBS 水木清华站)