文件名称：Delphi让窗体感知鼠标的进入与移出并自动隐藏与显示窗口
文件大小：1KB
文件格式：TXT
更新时间：2015-04-05 15:47:16
Delphi 感知 鼠标
Delphi让窗体感知鼠标的进入与移出并自动隐藏与显示窗口
Delphi让窗体感知鼠标的进入与移出并自动隐藏与显示窗口
【文件属性】：
网友评论
- //依赖定时器定时检查鼠标是否还在窗体范围内，这样此能避免因为快速移动鼠标而丢失MOUSELEAVE事件 procedure TfrmMain.Timer1Timer(Sender: TObject); var rc:TRECT; pt:TPOINT; begin GetWindowRect(self.Handle,rc); //取窗体的矩形区域 GetCursorPos(pt); //取得当前鼠标所在位置 if(not PtInRect(rc,pt)) then //如果鼠标不在窗体范围内 begin if(Top = 0) then //如果目前窗体正吸附在屏
- 可以用，不错！借鉴了
- 确认可以用啊
- 是我要的东西，谢谢楼主！
- 基本代码.框架.可以扩展
- 正好是我需要的，思路是 利用定时器 定时去查看鼠标是否在窗口上，如果不在 就隐藏 在就显示
- 没有panel的隐藏啊。只是窗体的隐藏。
- 没啥帮助，不行
- 做得还得，但实际效率不是太高