使Response窗口可以改变大小

博客介绍了申明API函数SetWindowLongA和GetWindowLongA,其库为user32。还提到建立Response类型窗口,ControlMenu属性设为False,在窗口Open事件里,通过常量和函数设置窗口样式,添加WS_THICKFRAME和WS_SYSMENU。

1. 我们需要申明以下几个API函数:

Function long SetWindowLongA(ulong hWnd, int nIndex, long dwNewLong) library "user32"
Function long GetWindowLongA(ulong hWnd, int nIndex) library "user32"

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

3. 在窗口的Open事件里:

constant long GWL_STYLE = -16

constant long WS_SYSMENU          = 524288
constant long WS_THICKFRAME       = 262144

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

SetWindowLongA(Handle(this), GWL_STYLE, dwStyle + WS_THICKFRAME + WS_SYSMENU)

评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值