- 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下運行通過。
推薦資訊 總人氣榜
