专注于互联网--专注于架构

delphi隐藏窗体:QQ窗体自动隐藏效果探究

腾讯QQ是当前流行的网络聊天工具之一，由于它在应用设计上有很多独特之处，所以也吸引了很多程序员对之进行研究和模仿。在这里，我将利用Delphi对QQ的窗体自动隐藏效果提出自己的实现方法。 一、问题的提出熟悉QQ使用的朋友都知道，当QQ窗体区域超出屏幕四边时，窗体就会自动“消失”，只留下窗体一边的小部分显露在桌面上。当用鼠标移动到显露部分之上，窗体就会在隐藏位置重新完整显示；但当鼠标离开窗体区域后，窗体便会重新进入隐藏状态。 　　对隐藏的全过程进行分析，可以得出两点推测：第一，窗体隐藏的处理是与窗体移动过程有关；第二，窗体隐藏的触发条件是窗体的区域已经移动到 [阅读全文] [PDF]

delphi隐藏窗体:QQ窗体自动隐藏效果探究(2)

三、初步的实现　　首先我们定义一个过程对WM_MOVING消息进行拦截处理，代码如下：……privateFAnchors: TAnchors;procedure WMMOVING(var Msg: TMessage); message WM_MOVING;……uses Math,type;procedure TForm1.WMMOVING(var Msg: TMessage); begininherited;with PRect(Msg.LParam)^ dobegin Left := Min(Max(0, Left), Screen.Width - Wi [阅读全文] [PDF]