windows11 无边框窗体 【圆角+阴影+拖放】

嫂子

如题代码如下

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

Old ＝ SetWindowLongA (取窗口句柄 (), -4, 到整数 (&WindProc))

子程序名	返回值类型	公开	备 注
WindProc	整数型
参数名	类 型	参考	可空	数组	备 注
handle	整数型
Msg	整数型
wp	整数型
lp	整数型

变量名	类 型	静态	数组	备 注
v	整数型
r	RECT
res	整数型

如果真 (Msg ＝ #WM_NCPAINT )
v ＝ 2
DwmSetWindowAttribute (handle, v, v, 4)
' 模拟扩展出边框 宽度1  可以自己改
r.Top ＝ 1
r.Left ＝ 1
r.Right ＝ 1
r.Bottom ＝ 1
DwmExtendFrameIntoClientArea (handle, r)
res ＝ CallWindowProcA (Old, handle, Msg, wp, lp)
' 这是处理拖放
如果真 (Msg ＝ #WM_NCHITTEST 且 res ＝ #HTCLIENT )
res ＝ #HTCAPTION
返回 (res)

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> Old ＝ SetWindowLongA (取窗口句柄 (), -4, 到整数 (&WindProc))<br /> <br /> .子程序 WindProc, 整数型<br /> .参数 handle, 整数型<br /> .参数 Msg, 整数型<br /> .参数 wp, 整数型<br /> .参数 lp, 整数型<br /> .局部变量 v, 整数型<br /> .局部变量 r, RECT<br /> .局部变量 res, 整数型<br /> <br /> <br /> .如果真 (Msg ＝ #WM_NCPAINT)<br />     v ＝ 2<br />     DwmSetWindowAttribute (handle, v, v, 4)<br />     ' 模拟扩展出边框 宽度1  可以自己改<br />     r.Top ＝ 1<br />     r.Left ＝ 1<br />     r.Right ＝ 1<br />     r.Bottom ＝ 1<br />     DwmExtendFrameIntoClientArea (handle, r)<br /> .如果真结束<br /> res ＝ CallWindowProcA (Old, handle, Msg, wp, lp)<br /> ' 这是处理拖放<br /> .如果真 (Msg ＝ #WM_NCHITTEST 且 res ＝ #HTCLIENT)<br />     res ＝ #HTCAPTION<br /> .如果真结束<br /> 返回 (res)

嫂子

几个API和类型助手词库中的 DwmSetWindowAttribute 申明好像是错的。

  

DLL命令名	返回值类型	公开	备 注
DwmSetWindowAttribute	整数型
DLL库文件名:
Dwmapi.dll
在DLL库中对应命令名:
DwmSetWindowAttribute
参数名	类 型	传址	数组	备 注
hwnd	整数型
dwAttribute	整数型
pvAttribute	整数型
cbAttribute	整数型

DLL命令名	返回值类型	公开	备 注
SetWindowLongA	整数型		改变指定窗口的属性，函数也将指定的一个32位值设置在窗口的额外存储空间的指定偏移位置。
DLL库文件名:
user32.dll
在DLL库中对应命令名:
SetWindowLongA
参数名	类 型	传址	数组	备 注
hWnd	整数型			窗口句柄及间接给出的窗口所属的类。
nIndex	整数型			指定将设定的大于等于0的偏移值。
dwNewLong	整数型			指定的替换值。

DLL命令名	返回值类型	公开	备 注
CallWindowProcA	整数型		呼叫窗口函数地址
DLL库文件名:
user32.dll
在DLL库中对应命令名:
CallWindowProcA
参数名	类 型	传址	数组	备 注
lpPrevWndFunc	整数型			前一窗口函数地址
hWnd	整数型			窗口句柄
Msg	整数型			消息值
wParam	整数型			附加参数1
lParam	整数型			附加参数2

DLL命令名	返回值类型	公开	备 注
DwmExtendFrameIntoClientArea	整数型
DLL库文件名:
Dwmapi.dll
在DLL库中对应命令名:
DwmExtendFrameIntoClientArea
参数名	类 型	传址	数组	备 注
hWnd	整数型
pMarInset	RECT

.版本 2<br /> <br /> .DLL命令 DwmSetWindowAttribute, 整数型, "Dwmapi.dll", "DwmSetWindowAttribute"<br />     .参数 hwnd, 整数型<br />     .参数 dwAttribute, 整数型<br />     .参数 pvAttribute, 整数型, 传址<br />     .参数 cbAttribute, 整数型<br /> <br /> .DLL命令 SetWindowLongA, 整数型, "user32.dll", "SetWindowLongA", , 改变指定窗口的属性，函数也将指定的一个32位值设置在窗口的额外存储空间的指定偏移位置。<br />     .参数 hWnd, 整数型, , 窗口句柄及间接给出的窗口所属的类。<br />     .参数 nIndex, 整数型, , 指定将设定的大于等于0的偏移值。<br />     .参数 dwNewLong, 整数型, , 指定的替换值。<br /> <br /> .DLL命令 CallWindowProcA, 整数型, "user32.dll", "CallWindowProcA", , 呼叫窗口函数地址<br />     .参数 lpPrevWndFunc, 整数型, , 前一窗口函数地址<br />     .参数 hWnd, 整数型, , 窗口句柄<br />     .参数 Msg, 整数型, , 消息值<br />     .参数 wParam, 整数型, , 附加参数1<br />     .参数 lParam, 整数型, , 附加参数2<br /> <br /> .DLL命令 DwmExtendFrameIntoClientArea, 整数型, "Dwmapi.dll", "DwmExtendFrameIntoClientArea"<br />     .参数 hWnd, 整数型<br />     .参数 pMarInset, RECT, 传址

自定义类型：

  

数据类型名	公开	备 注
RECT		矩形
成员名	类 型	传址	数组	备 注
Left	整数型			左边
Top	整数型			顶边
Right	整数型			右边
Bottom	整数型			底边

.版本 2<br /> <br /> .数据类型 RECT, , 矩形<br />     .成员 Left, 整数型, , , 左边<br />     .成员 Top, 整数型, , , 顶边<br />     .成员 Right, 整数型, , , 右边<br />     .成员 Bottom, 整数型, , , 底边

常量

  

常量名称	常量值	公 开	备 注
WM_NCPAINT	133		程序发送此消息给某个窗口当它（窗口）的框架必须被绘制时
WM_NCHITTEST	132		移动鼠标，按住或释放鼠标时发生
HTCAPTION	2
HTCLIENT	1

.版本 2<br /> <br /> .常量 WM_NCPAINT, "133", , 程序发送此消息给某个窗口当它（窗口）的框架必须被绘制时<br /> .常量 WM_NCHITTEST, "132", , 移动鼠标，按住或释放鼠标时发生<br /> .常量 HTCAPTION, "2"<br /> .常量 HTCLIENT, "1"

happyweeks365

6666666666666666666666

kyo9766

方便简单，感谢分享

wuqingg

        感谢分享，很给力！~

Conquer

      感谢分享，很给力！~

深圳梦

支持开源~！感谢分享

year1970

感谢分享

ctry78985

感谢分享

396384183

感谢分享，很给力！~