如何用程序实现hint的效果。

[chinajia]

鼠标指向一个东西，就出现提示，像hint一样。

[chinajia]

在线等各位！

[zhoutian618]

OnMouseMove事件可以啊。

[chinajia]

是在OnMouseMove事件里写,但具体实现那种效果，怎么写呀。

[zhoutian618]

你自己Raise里面的控件的源码吧，

我自己也是用RZ里面的控件解决的。

自己写的没有那个效果。

这什么不直接用HINT？

[hiflower]

从 THintWindow 继承，可以实现自己的 Hint 方式

[chinajia]

我试试。大家都试一下，这个很有用

[jollyfeng]

将控件的showhint为true然后在hint属性中写上要显示的文字。关于特效就是；
application.hintcolor:=clbule;//改变颜色
application.hintpause:=10;//改变触发时间
application.hinthidepause:=1000;//延长停留时间

[chinajia]

楼上，好。又扩大了hint的应用

[hmily1688]

学习

[966126]

添加一个TTimer
在窗体的OnMouseMove事件中添加
begin
//当鼠标有移动时则Timer1重新计时
timer1.Enabled:=false;
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
pos:TPoint;
begin
GetCursorPos(pos); //取得鼠标的当前位置
Application.ActivateHint(pos); //显示鼠标当前所在位置控件的hint
end;