Question

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

Answer 1

当设置为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，程序的运行稍微有 些不正常