发送消息(161,**,0) 设置组件尺寸 不能太小?

空竹

俺表达能力差,直接上图吧

发送信息(161，10，0) (161，11，0) (161，12，0) (161，13，0) (161，14，0) (161，15，0) (161，16，0) (161，16，0)
分别对应调整控件的左宽度 右宽度 顶高度 西北角 东北角 底宽度 西南角 东北角的尺寸


问题出来了,怎么他这个尺寸拉到某个大小就拉不动了,而且小尺寸的标签,一用这个就变大了,,

源码
fuck.e (1006.63 KB, 下载次数: 9)

2022-8-24 10:00 上传

点击文件名下载附件




补充内容 (2022-8-24 10:11):
尼玛 的,发错文件了

补充内容 (2022-8-24 10:11):
重新发一下

补充内容 (2022-8-24 10:12):
https://wwi.lanzoup.com/ijS2T0a4lm7a

补充内容 (2022-8-24 10:12):
调整组件大小和位置.e ↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑

梦想ol

  

子程序名	返回值类型	公开	备 注
_左上_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
消息值	整数型

当前方块 ＝ 取事件组件 ()
判断 (当前方块 ＝ 左上)
消息值 ＝ 13
判断 (当前方块 ＝ 左中)
消息值 ＝ 10
判断 (当前方块 ＝ 左下)
消息值 ＝ 16
判断 (当前方块 ＝ 中中)
消息值 ＝ 12
判断 (当前方块 ＝ 中下)
消息值 ＝ 15
判断 (当前方块 ＝ 右上)
消息值 ＝ 14
判断 (当前方块 ＝ 右中)
消息值 ＝ 11
判断 (当前方块 ＝ 右下)
消息值 ＝ 17


o ＝ SetWindowLongA (当前标签.取窗口句柄 (), -4, 到整数 (&子程序1))
当前标签.发送信息 (161, 消息值, 0)
SetWindowLongA (当前标签.取窗口句柄 (), -4, o)
到位 ＝ 假
显示移动块 ()

子程序名	返回值类型	公开	备 注
子程序1	整数型
参数名	类 型	参考	可空	数组	备 注
hwnd	整数型
wmsg	整数型
wparam	整数型
lparam	整数型

如果真 (wmsg ＝ 36)
写到内存 (10, lparam ＋ 24, )  ‘最小宽度10
写到内存 (10, lparam ＋ 28, )’最小高度10
返回 (CallWindowProcA (o, hwnd, wmsg, wparam, lparam))

.版本 2<br /> <br /> .子程序 _左上_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 消息值, 整数型<br /> <br /> 当前方块 ＝ 取事件组件 ()<br /> .判断开始 (当前方块 ＝ 左上)<br />     消息值 ＝ 13<br /> .判断 (当前方块 ＝ 左中)<br />     消息值 ＝ 10<br /> .判断 (当前方块 ＝ 左下)<br />     消息值 ＝ 16<br /> .判断 (当前方块 ＝ 中中)<br />     消息值 ＝ 12<br /> .判断 (当前方块 ＝ 中下)<br />     消息值 ＝ 15<br /> .判断 (当前方块 ＝ 右上)<br />     消息值 ＝ 14<br /> .判断 (当前方块 ＝ 右中)<br />     消息值 ＝ 11<br /> .判断 (当前方块 ＝ 右下)<br />     消息值 ＝ 17<br /> .默认<br /> <br /> .判断结束<br /> o ＝ SetWindowLongA (当前标签.取窗口句柄 (), -4, 到整数 (&子程序1))<br /> 当前标签.发送信息 (161, 消息值, 0)<br /> SetWindowLongA (当前标签.取窗口句柄 (), -4, o)<br /> 到位 ＝ 假<br /> 显示移动块 ()<br /> <br /> .子程序 子程序1, 整数型<br /> .参数 hwnd, 整数型<br /> .参数 wmsg, 整数型<br /> .参数 wparam, 整数型<br /> .参数 lparam, 整数型<br /> <br /> .如果真 (wmsg ＝ 36)<br />     写到内存 (10, lparam ＋ 24, )  ‘最小宽度10<br />     写到内存 (10, lparam ＋ 28, )’最小高度10<br /> .如果真结束<br /> 返回 (CallWindowProcA (o, hwnd, wmsg, wparam, lparam))

Xiaochuzhang

你这个是拉伸完才发送的信息！所以不会立即改变位置

空竹

Xiaochuzhang 发表于 2022-8-24 10:06
你这个是拉伸完才发送的信息！所以不会立即改变位置

如何解释组件大小更大的时候就没问题,和gif最后,从上到下第三个标签的问题

空竹

Xiaochuzhang 发表于 2022-8-24 10:06
你这个是拉伸完才发送的信息！所以不会立即改变位置

?为啥我的组件 不能更小呢

补充内容 (2022-8-24 10:36):
为啥缩小到一定程度,他就不能缩小了呢

afu45

空竹 发表于 2022-8-24 10:36
?为啥我的组件 不能更小呢

补充内容 (2022-8-24 10:36):

可能是组件都有一个最小值
要么就换种方式 不用发送消息

afu45

外形框、超级列表框 、按钮 都可以
标签  图片框  画板 不行

Xiaochuzhang

空竹 发表于 2022-8-24 10:36
?为啥我的组件 不能更小呢

补充内容 (2022-8-24 10:36):

啊啊 不知道了

Xiaochuzhang

空竹 发表于 2022-8-24 10:36
?为啥我的组件 不能更小呢

补充内容 (2022-8-24 10:36):

那就是不能太小了 不知道为什么