Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
2015-05-08 15:38
1176 查看
本文实例讲述了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程序设计有所帮助。
您可能感兴趣的文章:
相关文章推荐
- [Delphi]让窗体感知鼠标的进入与移出并自动隐藏与显示窗口
- 浅谈如何利用PB实现仿QQ自动显示/隐藏窗口(原创)
- 用WPF实现鼠标移开窗口自动隐藏
- 用WPF实现鼠标移开窗口自动隐藏
- 还有如此实现方法,没试用过,mouseEntered一个按钮的时候如何让他自动显示按钮的注释信息在一个小的注释框中??鼠标移走又小的注释框又自动消失??
- Java实现窗体隐藏,功能类似于QQ窗口自动隐藏
- Delphi下实现QQ窗体自动隐藏
- 解析android中隐藏与显示软键盘及不自动弹出键盘的实现方法
- 解析android中隐藏与显示软键盘及不自动弹出键盘的实现方法
- 解析android中隐藏与显示软键盘及不自动弹出键盘的实现方法
- 解析android中隐藏与显示软键盘及不自动弹出键盘的实现方法
- C# winform 实现 qq 在屏幕边缘 自动隐藏 鼠标移过去 移上去 又自动显示
- jQuery实现鼠标悬停显示提示信息窗口的方法
- jQuery实现鼠标悬停显示提示信息窗口的方法
- android中隐藏与显示软键盘及不自动弹出键盘及软键盘将布局顶上去的实现方法
- 解析android中隐藏与显示软键盘及不自动弹出键盘的实现方法
- 实现ListView的条目下自动隐藏显示Button的方法
- 解析android中隐藏与显示软键盘及不自动弹出键盘的实现方法
- 解析android中隐藏与显示软键盘及不自动弹出键盘的实现方法
- jquery实现鼠标滑过小图时显示大图的方法