- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 3Adobe Illustrator CS5 序列号大全
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8最新的Adobe Illustrator CS4序列号大全
- 9Intel i7-9700K性能跑分曝光：同代提升约12%
- 10XP系统怎么清除缓存？
- 11Intel Z390主板有望10月8日公布：8核9代酷睿随后登场
- 12XP系统安装chrome无法找到入口怎么处理？
[摘要]在用Delphi制作Windows程序的窗体时，窗体的边界有四种选择：对话框式（bsDialog）， 单边固定式（bsSingle），双边可变式（bsSizeable），无边界式（bsNone）。当...
在用Delphi制作Windows程序的窗体时，窗体的边界有四种选择：对话框式（bsDialog）， 单边固定式（bsSingle），双边可变式（bsSizeable），无边界式（bsNone）。当设置为
bsNone时，窗体也就没有标题条，很显然，程序运行以后就无法移动窗体了。事实上，无边界
窗体是很有用的，例如，象Word里面的浮动式工具箱其实就是无边界窗体，它可以大大节约屏
幕空间。那么，如何用Delphi实现这个功能呢？显然，这需要修改Windows的内部消息，也就
是说，需要把“MouseDownonForm”这个消息改为“MouseDownonCaption”，这其中有三个关键：
捕捉MouseDown消息、判断光标位置、发送MouseDown消息。如果光标在窗体中，则发送
MouseDownonCaption消息。
在Delphi的对象巡检器中列出的所有事件是不能捕捉到Windows消息的，因为这些都是已
经发出的消息，无法修改了。捕捉Windows消息有两种办法：一个就是增加一个消息处理句
柄，直接处理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下运行通过。
推荐资讯 总人气榜
