API实现的鼠标穿透窗体

易语言 2020-08-04 17:53:16

API实现的鼠标穿透窗体

ws = GetWindowLong (取窗口句柄 (), #GWL_EXSTYLE)
ws = 位或 (ws, #WS_EX_TRANSPARENT)
ws = 位或 (ws, #WS_EX_LAYERED)
SetWindowLong (取窗口句柄 (), #GWL_EXSTYLE, ws)