Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
<p>本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法。分享给大家供大家参考。具体实现方法如下：</p><div class="jb51code">
<pre class="brush: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;</pre>
</div>
<p>希望本文所述对大家的Delphi程序设计有所帮助。</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>Delphi 用DLL实现插件的简单实例</li><li>Delphi 根据字符串找到函数并执行的实例</li><li>Delphi 中内存映射对于大文件的使用</li><li>Delphi提取PDF文本实例</li><li>Delphi XE5 为Android应用制作签名的方法(图文)</li><li>ListView 百分比进度条(delphi版）</li><li>Delphi实现截屏存盘的方法</li><li>Delphi 实现软件自动升级的功能</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]