当前位置 : 主页>程序设计>delphi>列表

如何使用Delphi实现无边界窗体的移动

来源：互联网 作者：west263.com 时间：2008-02-23

西部数码-全国虚拟主机10强！40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

在用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下运行通过。

(T113)

上一篇： Delphi用拼音首字符序列实现检索功能
下一篇：如何用Delphi 6开发ASP上传组件详解

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

[打印] [关闭]

相关文章

上一篇：几个获取Windows系统信息的Delphi程序
下一篇：Delphi用拼音首字符序列实现检索功能

热点关注

IDC资讯虚拟主机域名注册托管租用 vps主机智能建站
网站运营建站经验策划盈利搜索优化网站推广免费资源
网站联盟联盟新闻联盟介绍联盟点评网赚技巧
行业资讯业界动态搜索引擎网络游戏门户动态电子商务广告传媒
网络编程 Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术 Web服务器 Ftp服务器 Mail服务器 Dns服务器安全防护
软件技巧其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷 Internet Explorer
网页制作 FrontPages Dreamweaver Javascript css photoshop fireworks Flash
程序设计 Java技术 C/C++ VB delphi
网络知识网络协议网络安全网络管理组网方案 Cisco技术
操作系统 Win2000 WinXP Win2003 Mac OS Linux FreeBSD

版权所有西部数码(www.west263.com)
CopyRight (c) 2002~2007 west263.com all right reserved.
公司地址：四川成都市万和路90号天象大厦4楼　邮编：610031
电话总机：028-86263408 86263960 86264018 86267838 86262244 86263408
售前咨询：总机转201 202 203 204 205 206 207 208
售后服务：总机转211 212 213 214 217 218 晚上0点以后拔分机225