亲宝软件园·资讯

展开

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

xujh 人气:0
想了解Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法的相关内容吗,xujh在本文为您仔细讲解Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:Delphi,窗体,鼠标滑过,隐藏,显示,下面大家一起来学习吧。

本文实例讲述了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程序设计有所帮助。

加载全部内容

相关教程
猜你喜欢
用户评论