1. 首页
  2. 编程语言
  3. Delphi
  4. 下载

Delphi让窗体感知鼠标的进入与移出并自动隐藏与显示窗口

下载
luanyoua 25 0 TXT 2019-04-30 23:04:05

Delphi让窗体感知鼠标的进入与移出并自动隐藏与显示窗口

用户评论
请输入评论内容
评分：
Generic placeholder image 卡了网匿名网友 2019-04-30 23:04:05

//依赖定时器定时检查鼠标是否还在窗体范围内，这样此能避免因为快速移动鼠标而丢失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 //如果目前窗体正吸附在屏

Generic placeholder image 卡了网匿名网友 2019-04-30 23:04:05

可以用，不错！借鉴了

Generic placeholder image 卡了网匿名网友 2019-04-30 23:04:05

确认可以用啊

Generic placeholder image 卡了网匿名网友 2019-04-30 23:04:05

是我要的东西，谢谢楼主！

Generic placeholder image 卡了网匿名网友 2019-04-30 23:04:05

基本代码.框架.可以扩展

Generic placeholder image 卡了网匿名网友 2019-04-30 23:04:05

正好是我需要的，思路是 利用定时器 定时去查看鼠标是否在窗口上，如果不在 就隐藏 在就显示

Generic placeholder image 卡了网匿名网友 2019-04-30 23:04:05

没有panel的隐藏啊。只是窗体的隐藏。

Generic placeholder image 卡了网匿名网友 2019-04-30 23:04:05

没啥帮助，不行

Generic placeholder image 卡了网匿名网友 2019-04-30 23:04:05

做得还得，但实际效率不是太高