Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

页面导航:首页 > 软件编程 > Delphi > Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

来源:互联网 作者:脚本宝典 时间:2015-07-30 13:23 【

本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法。分享给大家供大家参考。具体实现方法如下:?constWM_MouseEnter=$B013;WM_MouseLeave=$B014;typeTfrmMain=class(TForm)..Timer1:T
本文实例讲述了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程序设计有所帮助。


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<