Delphi下QQ窗体自动隐藏探索

　　判断条件的设置似乎和我们一般的理解有点不同。以Left参数的判断为例，在判断了Max(0, Left)之后还为什么一定要与Screen.Width-Width 的值再作比较呢？这其实是为了对一些较为极端的情况（例如窗体的宽度大于屏幕宽度）所作的伪处理，大家如果有兴趣的可自己试验一下这些极端的效果。当然，如果我们的窗体限制了宽、高的最大值，那么判断也就可以简化为我们最初的理解。

　　最后需要注意的是，代码中出现的Left、Top、Right、Bottom都是RECT的参数，而Width和Height才是窗体Form1的属性。

　　接下来我们要处理TTimer的OnTimer事件了。在WMMOVING过程中，当Fanchors不为空时，TTimer启动；反之，TTimer关闭。OnTimer事件的代码如下：

procedure TForm1.Timer1Timer(Sender: TObject);
　const
　　cOffset = 2;
　begin
　　if WindowFromPoint(Mouse.CursorPos) = Handle then
　　begin
　　　if akLeft in FAnchors then Left := 0;
　　　if akTop in FAnchors then Top := 0;
　　　if akRight in FAnchors then
　　　　Left := Screen.Width - Width;
　　　if akBottom in FAnchors then
　　　　Top := Screen.Height - Height;
　　　end else
　　　begin
　　　　if akLeft in FAnchors then Left := -Width cOffset;
　　　　if akTop in FAnchors then Top := -Height cOffset;
　　　　if akRight in FAnchors then
　　　　　Left := Screen.Width - cOffset;
　　　　if akBottom in FAnchors then
　　　　　Top := Screen.Height - cOffset;
　　end;
end;
　　在这里，我们首先定义一个常量cOffset去表示窗体隐藏后显露部分的大小。然后我们利用WindowFromPoint这个Windows API函数检测鼠标是否位于窗体之上。接下来的判断就是处理在显示和隐藏状态下窗体Left 和Top 属性值的设置。注意，针对Fanchors中存在不同值的情况，窗体Left和Top的设置是各不相同的，但是这些设置只有顺序上的差异而并没有优先级别的差异。（为什么要提到这一点呢？）

　　最后需要注意的是：在本事件中Top、Left、Width和Height都是窗体Form1的属性值。

　　好了，有关窗体隐藏的核心代码已经介绍完毕了，不过要达到预期效果，窗体Form1在创建时还必须做一些准备工作，代码如下：

procedure TForm1.FormCreate(Sender: TObject);
begin
　Timer1.Enabled := False;
　Timer1.Interval := 200;
　FormStyle := fsStayOnTop;
end;
　　这里的代码相对简单，不过值得指出的是对Form1的FormStyle 属性的设置。FormStyle 为fsStayOnTop时可保证Form1始终位于最前显示。从效果角度看，当系统工具栏为“总在最前显示”时是最为明显的，因为若窗体移动到系统工具栏上时也不会被其所遮盖。

上一篇： 手把手教delphi:写你的dll文件(1)
下一篇： Delphi实现通用的定时自动关机程序

1 2 下一页

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!