请问hint这个东西是如何出现的？(10分)

当把鼠标放在按扭上时，如果按扭允许出现hint，那么会出现提示的字样。<br>我想请问一下如何控制hint的出现？如何制作自定义样式的hint?<br>谢谢！！

showhint:=true;

mousemove + popupmenu

1、在hint属性里写你要显示的内容<br>2、设showhint为true

用第三方控件。

我想知道hint出现的原理，谁能告诉我，谢谢！！

下面是它的原理：我找来的：）<br>Delphi为每个可视构件（而非快速按钮专属）都提供了Hint及ShowHint特性，其中Hint属性指定 <br>文本提示盒中的文本，而ShowHint属性则决定鼠标指向构件时是否显示文本提示盒，当ShowHint值为 <br>True时，显示文本提示盒。用户可在对象监视器（ObjectInspector）的属性栏中设置或在程序中修改 <br>Hint及ShowHint属性。 <br>&nbsp; &nbsp; 除此之外，Delphi还在类TApplication中提供了HintColor、HintPause、HintHidePause、 <br>HintShortPause几个属性来控制文本提示盒的输出方式。 <br>&nbsp; &nbsp; 一般来说，HintColor、HintPause、HintHidePause、HintShortPause通常在Form的OnCreate事件 <br>中设定它们的值（如有需要的话），如以下的一段程序。 <br>&nbsp; &nbsp; ProcedureTMainForm．FormCreate(Sender:TObject); <br>&nbsp; &nbsp; begin <br>&nbsp; &nbsp; Application.HintPause:=0;{使文本提示盒立即出现} <br>&nbsp; &nbsp; Application.HintPause:=clBlue;{以蓝色小方框的方式出现} <br>&nbsp; &nbsp; Application.HintHidePause:=10000;{延长停留时间为10秒} <br>&nbsp; &nbsp; Application.HintShortPause:=100; <br>&nbsp; &nbsp; end； <br>&nbsp; &nbsp; 另外，在编程中，我们还可以通过TApplication的OnHint事件获取鼠标指向构件的Hint文本。 <br>&nbsp; &nbsp; 事实上，Delphi提供的文本提示盒输出方框、文本字型都太小，既不美观亦不易看清。值得 <br>庆幸的是，Delphi2．0版提供了全部构件的源代码，我们可以通过对类TApplication的源码作一些 <br>小修改，增加一个HintFont的属性，即可象修改HintColor一样来修改文本提示盒的字体、字型 <br>大小等。 <br>&nbsp; &nbsp; TApplication是在Forms单元里定义的，因此让我们打开Forms．pas单元文件来作以下一些修改： <br>&nbsp; &nbsp; ProcedureSetHintColor（Value：TColor｝； <br>&nbsp; &nbsp; ProcedureSetHintFont（Value：TFont）；｛1997．04．19Mynewidea｝ <br>&nbsp; &nbsp; PropertyHintColor:TColorreadFHintColorWriteSetHintColor; <br>&nbsp; &nbsp; PropertyHintFont:TFontwriteSetHintFont；{1997．04．19Mynewidea} <br>&nbsp; &nbsp; ProcedureTApplication.SetHintColor(Value：Color);上增加一个过程 <br>&nbsp; &nbsp; {1997．04．19Mynewidea} <br>&nbsp; &nbsp; ProcedureTApplication.SetHintFont(Value：TFont); <br>&nbsp; &nbsp; begin <br>&nbsp; &nbsp; if (Value&lt;&gt;nil) and (FHinWindow&lt;&gt;nil) then <br>&nbsp; &nbsp; FHintWindow.Canvas.Font:=Value； <br>&nbsp; &nbsp; end;{1997．04．19Mynewidea} <br>&nbsp; &nbsp; 别忘了在新增的语句旁作一些必要的注释，如上面的｛1997．04．19Mynewidea｝，可以很清楚 <br>地知道哪些语句是你自己加进去的。 <br>&nbsp; &nbsp; 将修改后的Forms．pas存盘，然后重建库文件，以后在你的库文件里，类TApplication就多了 <br>一个属性HintFont，你就可以很轻易的通过HintFont属性来修改文本提示盒的字体、字型大小了， <br>如以下一段程序： <br>&nbsp; &nbsp; ProcedureTMainForm.FormCreate(Sender:TObject); <br>&nbsp; &nbsp; Var <br>&nbsp; &nbsp; NewHintFont:=TFont.Create; <br>&nbsp; &nbsp; begin <br>&nbsp; &nbsp; NewHintFont:=TFont.Create; <br>&nbsp; &nbsp; NewHintFont.Name:='楷体－GB2312';{设置字体为楷体} <br>&nbsp; &nbsp; NewHintFont.Size:=12;{设置字型大小为12} <br>&nbsp; &nbsp; Application.HintFont:=NewHintFont; <br>&nbsp; &nbsp; end; <br>&nbsp; &nbsp; 此外，Delphi绘制文本提示盒是在类THintWindow的方法ActivateHint中通过WindowsAPI资源函数 <br>SetWindowPos来实现的，这段代码在Controls．pas单元文件里，有兴趣的读者可以进一步修改这段代码 <br>以绘制其他任意形状（如椭圆、圆等）而不仅仅是矩型方框的文本提示盒！但或许最好的方法是从类 <br>THintWindow继承下来一个新类，并重载Activate?Hint方法，然后在应用程序开始处给变量 <br>HintWindowClass指派一个新类实例

谢谢 Imfish！<br>如果我想用timer让一个按扭间隔出现hint，那么该如何实现？

myhintwindow:=THintWindow.create(application)<br>设置一个timer的间隔时间<br>然后timer事件中myhintwindow.activatehint(myrect,hintstr);<br>sleep(1000);<br>myhintwindow.releasehandle;

"用timer让一个按扭间隔出现hint"我已经解决了，<br>请问 Imfish ,修改完 forms.pas，如何重新编译库？<br>

谢谢 pjessica，你说的方法我也刚刚才找到

多人接受答案了。