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

SetWindowLong (hWnd, #GWL_STYLE, 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) ' 置当前位置