:324.032KB : :1 :2019-12-25 09:43:09
找到了一种超级简单的方法:通过修改窗口的非客户区尺寸,隐藏窗口边框但阴影不会消失,只是这种方式唯一不好的一点就是系统默认边框不能完全消除,窗口底部必须保留一个像素宽边框。虽然还是有点瑕疵,但是我还是比较喜欢这种简单的处理方式。
参显示 = 选择 (是否为空 (参显示), 真, 参显示)
Inistance = _取程序模块句柄 (0)
ZeroMemory_WNDCLASSEXW (窗口类, LocalSize_WNDCLASSEXW (窗口类))
窗口类.hCursor = _LoadCursor (0, 32512)
.如果 (全局_窗口图标 = “”)
窗口类.hIcon = _LoadIconA (0, 32512)
.否则
窗口类.hIcon = 载入图象_ (_取程序模块句柄 (0), 全局_窗口图标, 1, 0, 0, 16)
.如果结束
窗口类.hInstance = Inistance
窗口类.cbSize = LocalSize_WNDCLASSEXW (窗口类)
窗口类.style = 位或 (2, 1, 8) ' 要指定多个属性要使用位或来添加
窗口类.lpfnWndProc = 到整数 (&核心窗口过程)
窗口类.hbrBackground = 5
窗口类.lpszClassName = Ansi转Unicode (“MUI_UWindow”)
_注册窗口类ExW (窗口类) ' 注册窗口类
Hwnd = _创建窗口ExW (选择 (参分层样式, #WS_EX_LAYERED, 0), Ansi转Unicode (“MUI_UWindow”), Ansi转Unicode (窗口标题), 位或 (#MUI_默认窗口样式, 524288), Rect.左边, Rect.顶边, Rect.宽度, Rect.高度, 父窗口, 0, Inistance, 0)
.如果真 (Hwnd = 0)
返回 (0)
.如果真结束
.如果真 (参显示)
_显示窗口 (Hwnd, 1) ' 显示窗口
_UpdateWindow (Hwnd) ' 刷新窗口
.如果真结束
返回 (Hwnd)
02-18易语言的自用CAD插件开源
02-17会员管理插件源码
02-16易语言打造的最简单易用的http服务框架
02-16Fiddler批量自动生成易语言代码
02-16动态创建菜单与响应事件源码,菜单编辑器
02-16易语言如何判断按钮只能在30秒内点击一次
02-16易语言助手插件快捷键添加注释功能
09-07C++的string的实现源码分析
10-21易语言学习制作的生意参谋转换工具