您的位置:首页 > 其它

使Response窗口可以改变大小

2008-04-27 20:08 267 查看
1.我们需要申明以下几个API函数:

FunctionlongSetWindowLongA(ulonghWnd,intnIndex,longdwNewLong)library"user32"
FunctionlongGetWindowLongA(ulonghWnd,intnIndex)library"user32"

2.建立一个Response类型的窗口,记住:ControlMenu属性必须为False.

3.在窗口的Open事件里:

constantlongGWL_STYLE=-16

constantlongWS_SYSMENU =524288
constantlongWS_THICKFRAME =262144

longdwStyle
dwStyle=GetWindowLongA(Handle(this),GWL_STYLE)

SetWindowLongA(Handle(this),GWL_STYLE,dwStyle+WS_THICKFRAME+WS_SYSMENU)
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: