易语言如何让窗口背景全透明，其他控件不透明

要是窗口透明了,只有控件,那多奇怪啊!!!
要也不是没办法,方法:把窗口弄成无边框,控件放在窗口的四个角,这样看起来是窗口已经隐藏了,把窗口的位置设成"通常",把窗口的顶边和左边设置成你要的位置,就完工了! 要多组控件也可以这样重复.

调用API

添加 DLL 命令
.版本 2

.DLL命令 设置透明, 整数型, , "SetLayeredWindowAttributes"
.参数 hwnd, 整数型
.参数 crkey, 整数型
.参数 alpha, 字节型
.参数 dwflags, 整数型

.DLL命令 取窗口风格, 整数型, , "GetWindowLongA"
.参数 hwnd, 整数型
.参数 nindex, 整数型

.DLL命令 设置窗口, 整数型, , "SetWindowLongA"
.参数 hwnd, 整数型
.参数 nindex, 整数型
.参数 dwnewlong, 整数型

要让_启动窗口透明

.版本 2

_启动窗口.底色 ＝ #品红
设置窗口 (取窗口句柄 (), -20, 位或 (取窗口风格 (取窗口句柄 (), -20), 524288))
设置透明 (取窗口句柄 (), #品红, 200, 1)