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继承下来一个新类，并重载ActivateHint方 法，然后在应用程序开始处给变量HintWindowClass指派一个 新类实例
(摘自BBS 水木清华站)
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
