Delphi 光标跟随 （鼠标提示效果）代码

Delphi 光标跟随 （鼠标提示效果）代码 Delphi简单模拟所谓‘光标跟随’效果。程序包括以下实现细节：激活提示窗体，重新引入API函数以便Active_Hint()调用、Hint窗体要显示的提示文字、隐藏自己并转发消息给下面控件、鼠标离开通知、窗体过程回调函数、(合适位置)显示窗体、是否超出屏幕宽度、HintWindow窗体句柄、HintWindow窗体句柄、开启或关闭光标跟随定时器…………