|
本帖最后由 萧阳天 于 2014-12-28 20:47 编辑
窗口_置父()命令不能置父
这里有一个代码可以正确置父,望采纳
|
彗星置父窗口 | | | |
父窗口句柄 | 整数型 | | | | 子窗口句柄 | 整数型 | | | | 子窗口左边 | 整数型 | | | | 子窗口顶边 | 整数型 | | | | 子窗口宽度 | 整数型 | | | | 子窗口高度 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | dwStyle | 整数型 | | | dwNewStyle | 整数型 | | | Rect | RECT | | | SetParent (子窗口句柄, 父窗口句柄 ) dwStyle = GetWindowLong (子窗口句柄, -16 )dwNewStyle = 位与 (dwStyle, 位取反 ( #WS_POPUP )) dwNewStyle = 位或 (dwNewStyle, #WS_CHILD ) 如果真 (dwStyle ≠ dwNewStyle ) SetWindowLong (子窗口句柄, #GWL_STYLE, dwNewStyle ) GetWindowRect (子窗口句柄, Rect ) 如果真 (是否为空 (子窗口宽度 )) 子窗口宽度 = Rect.Right - Rect.Left 如果真 (是否为空 (子窗口高度 )) 子窗口高度 = Rect.Bottom - Rect.Top MoveWindow (子窗口句柄, 子窗口左边, 子窗口顶边, 子窗口宽度, 子窗口高度, 1)
彗星置父窗口.zip
(3.9 KB, 下载次数: 153)
利用泪闯天涯的源码可以成功置父,而精易模块不能!
|
|