Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法。分享给大家供大家参考。具体实现方法如下：
const
WM_MouseEnter=$B013;
WM_MouseLeave=$B014;
type
TfrmMain=class(TForm)
.
.
Timer1:TTimer;
procedureTimer1Timer(Sender:TObject);
protected
procedureWMMouseEnter(varMsg:TMessage);messageWM_MouseEnter;
end;
implementation
{$R*.dfm}
procedureTfrmMain.WMMouseEnter(varMsg:TMessage);
begin
if(Top<0)then
begin
Top:=0;
//为保证下拉窗体后呈现在最前面
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVEorSWP_NOSIZE);
//将窗体推到最前
SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVEorSWP_NOSIZE);
//然后取消窗体最前
end;
Timer1.Enabled:=True;
end;
//依赖定时器定时检查鼠标是否还在窗体范围内，
//这样此能避免因为快速移动鼠标而丢失MOUSELEAVE事件
procedureTfrmMain.Timer1Timer(Sender:TObject);
var
rc:TRECT;
pt:TPOINT;
begin
GetWindowRect(self.Handle,rc);//取窗体的矩形区域
GetCursorPos(pt);//取得当前鼠标所在位置
if(notPtInRect(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_NOMOVEorSWP_NOSIZE);
//将窗体推到最前
end;
end;
希望本文所述对大家的Delphi程序设计有所帮助。
热门推荐
10 八一幼儿祝福语大全简短
11 公司乔迁食堂祝福语简短
12 婚礼结束聚餐祝福语简短
13 儿媳买车妈妈祝福语简短
14 毕业送礼老师祝福语简短
15 同事辞职正常祝福语简短
16 恭贺新婚文案祝福语简短
17 金店立秋祝福语简短英文
18 婆婆高寿祝福语大全简短