TC官方合作论坛

 找回密码
 立即注册
查看: 4029|回复: 86
打印 上一主题 下一主题

[源码分享] 发给可以任意拖动调节窗口和部分控件大小的代码

  [复制链接]
跳转到指定楼层
楼主
发表于 2013-11-4 15:30:26 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
本帖最后由 veeyoo 于 2018-3-30 16:11 编辑

在初始化里加上下面代码可以任意拖动窗口大小。
dllcall("user32.dll","int","SetWindowLongA","int",window.getmyhwnd(),"int",-16,"int",262144+12582912+524288+65536+131072)

在消息过程里添加如下代码可以在改变窗口大小的同时改变控件的大小:

功能 自动缩放_消息过程(消息,w参数,l参数)  
如果(消息==5)
        变量 窗口句柄,rCX,rCY,返回宽,返回高
        窗口句柄=窗口.自身句柄()
        窗口.获取客户区大小(窗口句柄,rCX,rCY,返回宽,返回高)
        窗口.获取大小(窗口句柄,返回宽,返回高)
        控件.设置位置("表格0",0,0,返回宽,返回高,2)//控件的大小和位置在这里按照实际情况自己加或减rCX,rCY,返回宽,返回高
如果结束
功能结束

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

87#
发表于 2018-3-23 21:47:59 | 只看该作者
看看学习一下
回复 支持 反对

使用道具 举报

86#
发表于 2018-2-3 15:22:39 | 只看该作者
功能 自动缩放_消息过程(消息,w参数,l参数)  
如果(消息==5)
        变量 窗口句柄,rCX,rCY,返回宽,返回高
        窗口句柄=窗口.自身句柄()
        窗口.获取客户区大小(窗口句柄,rCX,rCY,返回宽,返回高)
        窗口.获取大小(窗口句柄,返回宽,返回高)
        控件.设置位置("表格0",0,0,返回宽,返回高,2)//控件的大小和位置在这里按照实际情况自己加或减rCX,rCY,返回宽,返回高
如果结束
功能结束
回复 支持 反对

使用道具 举报

85#
发表于 2017-10-31 17:43:04 | 只看该作者
感谢分享!
回复

使用道具 举报

84#
发表于 2017-10-24 16:51:26 | 只看该作者
支持啊
回复

使用道具 举报

83#
发表于 2017-10-16 08:36:41 | 只看该作者
:L 这都要隐藏啊……
回复 支持 反对

使用道具 举报

82#
发表于 2017-6-3 23:27:30 | 只看该作者
的地方规定发给对方
回复 支持 反对

使用道具 举报

81#
发表于 2017-4-30 20:31:44 | 只看该作者
想学
回复

使用道具 举报

80#
发表于 2017-1-9 10:30:35 | 只看该作者
看看                 
回复 支持 反对

使用道具 举报

79#
发表于 2016-12-26 13:53:08 | 只看该作者
66666666666
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18043773号

GMT+8, 2025-9-19 03:51 , Processed in 0.122088 second(s), 24 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表