Delphi如何制作一个类似鼠标滑动到QQ好友上时显示出来的好友信息提示框???

解决方案 »

  1.   

    这个代码就没有,过程大概可以有。假如控件是listview的话,在鼠标移动的事件中做文章。
    在移动事件中首次事件时触发时钟,1秒后执行弹出提示框。1秒钟内如果鼠标移动到其他item(通过index检测)则重新开启时钟,也就是继续等待一秒。这是时钟条件,下面是时钟事件,检测当前鼠标位置所在的item是必须的,有可能鼠标在这一秒内直接从当前item跳出这个Listview。检测通过后就可以弹出了。提示框可以是在鼠标不停留的时候计时2秒后关闭,也可以在鼠标移动到其他item时关闭,这里方法比较多。