纯API自绘窗体可透明创建组件

利用系统api实现窗口全透明,而窗口上的组件不透明,类似于自绘组件悬浮的效果,很好用。

组件句柄 ＝ CreateWindow (0, 类名, 标题, 位或 (#无法载入的常量, #无法载入的常量), 左边, 顶边, 宽度, 高度, 父窗口句柄, 0, 0, 0)

具体的代码中间包含了很多我在尝试的时候注释的代码。

SetWindowLong (hWnd, #无法载入的常量, 100663296) '
wid ＝ GetWinSize (hWnd).Width
hei ＝ GetWinSize (hWnd).Height
style ＝ GetWindowLong (hWnd, -20)
style ＝ 位或 (style, 524288)
SetWindowLong (hWnd, -20, style)
SetLayeredWindowAttributes (hWnd, 0, 222, 2)
创建组件 (“edit”, hWnd, “CreateWindow编辑框”, 20, 60, 300, 20)
创建组件 (“button”, hWnd, “CreateWindow按钮”, 50, 100, 200, 20)
创建组件 (“msctls_updown32”, hWnd, “”, 350, 60, 200, 20)
进度条 ＝ 创建组件 (“msctls_progress32”, hWnd, “”, 80, 150, 200, 20)
SendMessage (进度条, 1026, 50, 0) ' 置当前位置

程序中的对话框的分层属性必须被选中因为没有使用代码在程序中自动设置分层属性，所以需要手动设置。