Question

如何让程序一得到MouseMove事件就立即显示Tips

Answer 1

1.首先声明两个API函数//获得焦点Function ulong SetCapture(ulong hWnd) Library "USER32.DLL"//释放焦点Function BOOLEAN ReleaseCapture() Library "USER32.DLL"
2.自定义用户事件鼠标在控件上移动mousemove(EventID号为pbm_mousemove)，鼠标进入控件mousewithin，鼠标离开控件mousewithout。
3.声明一些Instance变量
boolean ib_mousecaptured//控件是否已经获得焦点
boolean ib_mousewithin//鼠标是否进入控件
integer ii_losecapture=0//控件是否要失去焦点
4.在mousemove事件中写入
if ii_losecapture 1 then
if not ib_mousecaptured then//没有捕获鼠标移动
//捕获鼠标移动
SetCapture(handle(this))
ib_mousecaptured = TRUE
else //已经捕获鼠标移动
if xpos < 0 or ypos < 0 or xpos width or ypos height then//鼠标不在该控件上//释放鼠标ReleaseCapture()
ib_mousecaptured = FALSE
//触发mousewithout事件
this.post event mousewithout()
ib_mousewithin=false
ii_losecapture=0
//this.of_set()elseif not ib_mousewithin then
//触发mousewithin事件
this.post event mousewithin()
ib_mousewithin=trueend ifend ifend ifelseii_losecapture=ii_losecapture + 1end if
5.最后你就可以在mousewithin和mousewithout中写入你想要的效果或事件。
of_set()可能是重置某些值的操作源码天空