| 网站首页 | 文章中心 | 电子书下载 | 矢量图库 | 视频教程 | 素材下载 | 程序代码下载 | JS代码 | 论坛 | 
常用软件类：
 |杀毒安全 |联络聊天 |网络软件 |多媒体类 |系统工具 |图形图像 |系统工具 |应用软件 |行业软件
开发设计类：
 |动画制作 |图像处理 |3D设计 |操作系统 |站长学院 |网络相关 |WEB设计 |数据库类 |程序开发
Delphi实现无边界窗体的移动
作者：佚名    文章来源：网络    点击数：    更新时间：2006-12-2
　

在用Delphi制作Windows程序的窗体时，窗体的边界有四种选择：对话框式（bsDialog），单边固定式（bsSingle），双边可变式（bsSizeable），无边界式（bsNone）。当设置为bsNone时，窗体也就没有标题条，很显然，程序运行以后就无法移动窗体了。事实上，无边界窗体是很有用的，例如，象Word里面的浮动式工具箱其实就是无边界窗体，它可以大大节约屏幕空间。那么，如何用Delphi实现这个功能呢？显然，这需要修改Windows的内部消息，也就是说，需要把“MouseDownonForm”这个消息改为“MouseDownonCaption”，这其中有三个关键： 捕捉MouseDown消息、判断光标位置、发送MouseDown消息。如果光标在窗体中，则发送MouseDownonCaption消息。

在Delphi的对象巡检器中列出的所有事件是不能捕捉到Windows消息的，因为这些都是已经发出的消息，无法修改了。捕捉Windows消息有两种办法：一个就是增加一个消息处理句柄，直接处理Windows消息；另一个是对消息进行过滤，滤出所需消息。第二个办法比较常用，适用于各种情况，下面就是移动无边界窗体程序片断，加注释部分是手动加入的： 

　　unitUnit1； 

　　： 

　　type 

　　TForm1Κclass（TForm） 

　　procedureFormCreate（Sender：TObject）； 

　　： 

　　public 

　　｛申明消息过滤过程｝ 

　　procedureAppMessage（varMsg：TMsg；varHandled 
：Boolean）； 

　　： 

　　implementation 

　　procedureTForm1．FormCreate（Sender：TObject） 
； 

　　begin 

　　｛捕捉消息：将程序的收到消息事件与消息过滤过程 
关联起来｝ 

　　Application．OnMessage：ΚAppMessage； 

　　end； 

　　procedureTForm1．AppMessage（varMsg：TMsg；var 
Handled：Boolean）； 

　　begin 

　　｛如果鼠标左键按下的话｝ 

　　ifMsg．messageΚWM—LButtonDownthen 

　　begin 

　　｛判断光标是否在用户工作区内｝ 

　　ifDefWindowProc（Handle，WM—NCHitTest，0，Get 
MessagePos）ΚHTClientthen 

　　begin 

　　｛发出鼠标在用户标题栏内被按下的消息｝ 

　　SendMessage（Handle，WM—NCLButtonDown， 

　　HTCaption，GetMessagePos）； 

　　Handled：Κtrue；｛消息处理完毕，窗体不再接受M 
ouseDown及Click事件，如果为false，程序的运行稍微有 
些不正常。｝ 

　　end； 

　　end； 

　　end； 

　　end．

　　程序在Delphi1．0、中文Windows3．2下运行通过。


  • 上一篇文章：

  • 下一篇文章： 没有了
    • 相关文章