我們一般是用滑鼠按住視窗的標題欄,然後移動視窗,當視窗沒有標題欄時,我們可以用下面的方法來移動視窗:
在 bas 檔案中宣告:
declare function releasecapture lib "user32" () as long
declare function sendmessage lib "user32" _
alias "sendmessagea" ( _
byval hwnd as long, byval wmsg as long, _
byval wparam as long, lparam as any) as long
public const htcaption = 2
public const wm_nclbuttondown = &ha1
然後,在 form_mousedown 事件中:
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
releasecapture
sendmessage hwnd, wm_nclbuttondown, htcaption, 0&
end sub
移動無標題欄視窗
一般情況下,移動乙個窗體需要將滑鼠放置在標題欄上才能拖動窗體,為 什麼非要使用標題欄呢?其實我們可以使用乙個巧妙的方法來實現將滑鼠放置 在窗體上按下就可拖動窗體,下面先看實現 在form1的 private 部分宣告過程 在private部分加入下列 procedure wmnchittest va...
QT 去掉標題欄和去掉標題欄後移動視窗
在用qt編寫介面時,去掉標題欄方法比較簡單,就一行 this setwindowflags qt framelesswindowhint 去掉以後又發現乙個問題,就是不能移動視窗了,於是我就重寫了三個滑鼠事件,大致 如下 h檔案的 include protected void mousepresse...
Winform隱藏標題欄後移動視窗
為了美觀,有時需要將winform的標題欄隱藏,但帶來的結果是無法像之前那樣任意移動視窗。此時,需要過載視窗事件onmousedown,onmousemove,onmouseup三個事件。winform隱藏標題欄後實現視窗移動 1 region 隱藏標題欄後移動視窗 2 3 滑鼠按下,開啟移動 4 ...