组件边框半透明特效

易语言 2020-09-01 11:06:01

组件边框半透明特效

窗口信息 = GetWindowLong (取窗口句柄 (), -20)
窗口信息 = 位或 (窗口信息, 524288)
SetWindowLong (取窗口句柄 (), -20, 窗口信息)
窗口透明 (取窗口句柄 (), 0, 180, 2)
载入 (窗口1, , 假)