Z zzz Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-06 #1 我想让鼠标在窗口内移动时，停止时显示一个Hint，但是现在必须要移出窗口再进来时才会激发OnHint。怎么做？<br>另怎么让所有控件都支持OnHint事件?<br>或说：如何捕获一个事件MouseStop?<br><br>
我想让鼠标在窗口内移动时，停止时显示一个Hint，但是现在必须要移出窗口再进来时才会激发OnHint。怎么做？<br>另怎么让所有控件都支持OnHint事件?<br>或说：如何捕获一个事件MouseStop?<br><br>
L liuchuanbo Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-06 #2 怎么让所有控件都支持OnHint事件 ：rewrite
R rychu Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-06 #4 <br>Delphi的TApplication中有许多关于Hint属性的设置,譬如hint的颜色,持续时间等等;你也可以用一个类,叫THintWindow,自己创建一个提示窗口,这样就可以很好的控制Hint的行为了.
<br>Delphi的TApplication中有许多关于Hint属性的设置,譬如hint的颜色,持续时间等等;你也可以用一个类,叫THintWindow,自己创建一个提示窗口,这样就可以很好的控制Hint的行为了.
S Sachow Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-07 #5 在控件的OnMouseMove事件中加上ShowHint行不行？<br>要想做OnMouseStop事件，要用一个计时器(Timer)来计算吧。
W wwwsys Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #6 建议使用TApplication的HintMouseMessage（）函数，立即可以显示一个HINT窗口<br>重写TApplication的OnShowHint事件，改写HintInfo.
L lingxin Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #7 ProcedureTMainForm．FormCreate（Sender：TObject）；<br> begin<br> Application．HintPause：Κ0；｛使文本提示盒立即出现｝<br> Application．HintPause：ΚclBlue；｛以蓝色小方框的方式出现｝<br> Application．HintHidePause：Κ10000；｛延长停留时间为10秒｝<br> Application．HintShortPause：Κ100；<br> end；<br>
ProcedureTMainForm．FormCreate（Sender：TObject）；<br> begin<br> Application．HintPause：Κ0；｛使文本提示盒立即出现｝<br> Application．HintPause：ΚclBlue；｛以蓝色小方框的方式出现｝<br> Application．HintHidePause：Κ10000；｛延长停留时间为10秒｝<br> Application．HintShortPause：Κ100；<br> end；<br>
