允许解锁=假 鼠标锁定() 后, 即使 允许解锁=真,鼠标_解锁() 也没用

走一回

下面的代码中的 鼠标_锁() 与 鼠标_解锁() 同由 _外形框1_鼠标位置被移动 中的位置来判断的,
现在的问题是一旦鼠标被锁定后,即使  程序集变量  允许解锁=真  通过时钟来操作的 鼠标_解锁() 不能解锁了,
造成无法用鼠标  控制光标在编辑框中 获取焦点来定位.为什么?
有知道的,希望可告之一二,谢谢!!!!

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
允许解锁	逻辑型		在外形框外面为假  上下左右的响应范围各向内缩进20

子程序名	返回值类型	公开	备 注
_外形框1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果 (横向位置 ＞ 20 且 横向位置 ＜ 外形框1.宽度 － 20 且 纵向位置 ＞ 20 且 纵向位置 ＜ 外形框1.高度 － 20)
允许解锁 ＝ 真
允许解锁 ＝ 假

子程序名	返回值类型	公开	备 注
_时钟1_周期事件			周期为1000

判断 (允许解锁 ＝ 真)
鼠标_解锁 ()
判断 (允许解锁 ＝ 假)
鼠标_锁定 ()


调试输出 (允许解锁)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 允许解锁, 逻辑型, , , 在外形框外面为假  上下左右的响应范围各向内缩进20<br /> <br /> .子程序 _外形框1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (横向位置 ＞ 20 且 横向位置 ＜ 外形框1.宽度 － 20 且 纵向位置 ＞ 20 且 纵向位置 ＜ 外形框1.高度 － 20)<br />     允许解锁 ＝ 真<br /> .否则<br />     允许解锁 ＝ 假<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件, , , 周期为1000<br /> <br /> .判断开始 (允许解锁 ＝ 真)<br />     鼠标_解锁 ()<br /> .判断 (允许解锁 ＝ 假)<br />     鼠标_锁定 ()<br /> .默认<br /> <br /> .判断结束<br /> 调试输出 (允许解锁)

LLJ

.支持库 spec

.子程序 _时钟1_周期事件, , , 周期为1000
.局部变量 已锁, 逻辑型, 静态

.判断开始 (允许解锁 ＝ 真)
    .如果真 (已锁 ＝ 真)
        已锁 ＝ 假
        鼠标_解锁 ()
    .如果真结束

.判断 (允许解锁 ＝ 假)
    .如果真 (已锁 ＝ 假)
        鼠标_锁定 ()
        已锁 ＝ 真
    .如果真结束

.默认

.判断结束
调试输出 (允许解锁)



不要重复调用就不会死

走一回

忘记上传我的源码了
鼠标锁定与解锁.e (790.41 KB, 下载次数: 20)

2019-3-14 23:53 上传

点击文件名下载附件