在用Delphi制作Windows程序的窗體時，窗體的邊界有四種選擇：對話框式（bsDialog），
單邊固定式（bsSingle），雙邊可變式（bsSizeable），無邊界式（bsNone）。當(dāng)設(shè)置為
bsNone時，窗體也就沒有標(biāo)題條，很顯然，程序運(yùn)行以后就無法移動窗體了。事實(shí)上，無邊界
窗體是很有用的，例如，象Word里面的浮動式工具箱其實(shí)就是無邊界窗體，它可以大大節(jié)約屏
幕空間。那么，如何用Delphi實(shí)現(xiàn)這個功能呢？顯然，這需要修改Windows的內(nèi)部消息，也就
是說，需要把“MouseDownonForm”這個消息改為“MouseDownonCaption”，這其中有三個關(guān)鍵：
捕捉MouseDown消息、判斷光標(biāo)位置、發(fā)送MouseDown消息。如果光標(biāo)在窗體中，則發(fā)送
MouseDownonCaption消息。

　　在Delphi的對象巡檢器中列出的所有事件是不能捕捉到Windows消息的，因?yàn)檫@些都是已
經(jīng)發(fā)出的消息，無法修改了。捕捉Win�瞕ows消息有兩種辦法：一個就是增加一個消息處理句
柄，直接處理Windows消息；另一個是對消息進(jìn)行過濾，濾出所需消息。第二個辦法比較常用，
適用于各種情況，下面就是移動無邊界窗體程序片斷，加注釋部分是手動加入的：

　　unitUnit1；

　�。�

　　type

　　TForm1Κclass（TForm）

　　procedureFormCreate（Sender：TObject）；

　�。�

　　public

　�。�申明消息過濾過程｝

　　procedureAppMessage（varMsg：TMsg；varHandled
：Boolean）；

　　：

　　implementation

　　procedureTForm1．FormCreate（Sender：TObject）
；

　　begin

　�。�捕捉消息：將程序的收到消息事件與消息過濾過程
關(guān)聯(lián)起來｝

　　Application．OnMessage：ΚAppMessage；

　　end；

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

　　begin

　�。�如果鼠標(biāo)左鍵按下的話｝

　　ifMsg．messageΚWM—LButtonDownthen

　　begin

　�。�判斷光標(biāo)是否在用戶工作區(qū)內(nèi)｝

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

　　begin

　　｛發(fā)出鼠標(biāo)在用戶標(biāo)題欄內(nèi)被按下的消息｝

　　SendMessage（Handle，WM—NCLButtonDown，

　　HTCaption，GetMessagePos）；

　　Handled：Κtrue；｛消息處理完畢，窗體不再接受M
ouseDown及Click事件，如果為false，程序的運(yùn)行稍微有
些不正常。｝

　　end；

　　end；

　　end；

　　end．

　　程序在Delphi1．0、中文Windows3．2下運(yùn)行通過。