Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
更新时间:2020年6月30日 23:43 点击:2259
本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法。分享给大家供大家参考。具体实现方法如下:
const WM_MouseEnter = $B013; WM_MouseLeave = $B014; type TfrmMain = class(TForm) . . Timer1: TTimer; procedure Timer1Timer(Sender: TObject); protected procedure WMMouseEnter(var Msg: TMessage); message WM_MouseEnter; end; implementation {$R *.dfm} procedure TfrmMain.WMMouseEnter(var Msg: TMessage); begin if(Top<0) then begin Top := 0; //为保证下拉窗体后呈现在最前面 SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE); //将窗体推到最前 SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE); //然后取消窗体最前 end; Timer1.Enabled := True; end; //依赖定时器定时检查鼠标是否还在窗体范围内, //这样此能避免因为快速移动鼠标而丢失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 //如果目前窗体正吸附在屏幕上沿,则上移隐藏窗体 begin Top := 0-Height+2; end; Timer1.Enabled := False; //窗体隐藏后定时器关闭 SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE); //将窗体推到最前 end; end;
希望本文所述对大家的Delphi程序设计有所帮助。
相关文章
- 这篇文章主要介绍了C#开发Windows窗体应用程序的简单操作步骤,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2021-04-12
- 代码如下:$('#<%=AllEvent.ClientID%> tr:not(:has("th"))').hover(function () { $bg = $(this).css('background-color'); $(this).css('background-...2013-10-03
- 这篇文章主要介绍了C#窗体布局方式详解的相关资料,需要的朋友可以参考下...2020-06-25
- 鼠标划过实现延迟加载并隐藏层的js代码...2013-10-13
- 这篇文章主要为大家详细介绍了C#创建一个简单windows窗体应用的方法,具有一定的参考价值,感兴趣的小伙伴们可以参考一下...2020-06-25
- 这篇文章主要介绍了C#模拟window操作鼠标的方法,可实现模拟鼠标移动到固定位置后点击右键的功能,涉及鼠标常用事件的操作技巧,需要的朋友可以参考下...2020-06-25
- 这篇文章主要介绍了简单实现C#窗体程序判断是否闰年的相关代码,禁止窗体调整大小,关闭窗体前的判断,感兴趣的小伙伴们可以参考一下...2020-06-25
- 这篇文章主要介绍了基于JavaScript获取鼠标位置的各种方法 ,需要的朋友可以参考下...2015-12-18
- 这篇文章主要介绍了C#实现窗体间传递数据实例,需要的朋友可以参考下...2020-06-25
- 这篇文章主要介绍了Delphi远程连接Mysql的实现方法,需要的朋友可以参考下...2020-06-30
- 下面小编就为大家带来一篇C#获取鼠标在listview右键点击单元格的内容方法。小编觉得挺不错的,现在就分享给大家,也给大家做个参考。一起跟随小编过来看看吧...2020-06-25
- 这篇文章主要介绍了C#设置MDI子窗体只能弹出一个的方法,很实用的技巧,需要的朋友可以参考下...2020-06-25
- 这篇文章主要给大家介绍了关于C#窗体间常用的几种传值方式及委托与事件的相关资料,文中通过示例代码介绍的非常详细,对大家学习或者使用小程序具有一定的参考学习价值,需要的朋友们下面来一起学习学习吧...2020-06-25
- 这篇文章主要介绍了C#入门之窗体的简单用法,以实例形式分析了注册页面程序的实现过程,具有一定的参考借鉴价值,需要的朋友可以参考下...2020-06-25
- 这篇文章主要介绍了C#实现窗体与子线程的交互的方法,对初学者有一定的学习借鉴价值,需要的朋友可以参考下...2020-06-25
- 今天小编在这里就来给Photoshop的这一款软件的使用者们来说下用鼠标绘制一颗一星龙珠的教程,各位想知道具体绘制方法的使用者们,那么下面就快来跟着小编一起看一看吧。...2016-09-14
- 这篇文章主要介绍了Delphi常用关键字用法,包括了各个常用的关键字及其详细用法,需要的朋友可以参考下...2020-06-30
- 这篇文章主要介绍了delphi7连接mysql5的实现方法,需要的朋友可以参考下...2020-06-30
- 这篇文章主要介绍了C#实现让窗体永远在窗体最前面显示,功能非常实用,需要的朋友可以参考下...2020-06-25
- 本文章来给各位同学介绍关于C#单击菜单栏或工具栏时通过反射打开窗体的方法,有需要了解的朋友可进入参考参考。...2020-06-25