移動沒有標題欄的視窗

2022-03-09 14:14:07 字數 629 閱讀 8385

我們一般是用滑鼠按住視窗的標題欄,然後移動視窗,當視窗沒有標題欄時,我們可以用下面的方法來移動視窗:

在 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 ...