如何使用Delphi實現無邊界窗體的移動

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

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

　　unitUnit1； 

　�。� 

　　type 

文章來源于領測軟件測試網 http://www.kjueaiud.com/

TAG: delphi Delphi 窗體