当前组件 ＝ 2
复制窗口组件 (编辑框1, 程序集_编辑框)
窗口1.鼠标指针 ＝ { 2 } ' 字节集2是十字
.子程序 _窗口1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (当前组件 ＝ 1)
程序集_按钮.宽度 ＝ 横向位置 － 程序集_按钮.左边
程序集_按钮.高度 ＝ 纵向位置 － 程序集_按钮.顶边
程序集_按钮.可视 ＝ 真
.否则
程序集_编辑框.宽度 ＝ 横向位置 － 程序集_编辑框.左边
程序集_编辑框.高度 ＝ 纵向位置 － 程序集_编辑框.顶边
程序集_编辑框.可视 ＝ 真
.如果结束
窗口1.鼠标指针 ＝ { 0 } ' 0为默认型
上一篇 很简单的文本去除重复
下一篇 禁止编辑框粘贴内容功能