Question

我写的易语言点击窗口想移动就会卡住怎么回事？

为了省字删了点没有的，大家帮我看看，事后我会追加分数10分以上

.版本 2
.支持库 eAPI
.支持库 spec

.程序集 窗口程序集1
.程序集变量 R, 整数型
.程序集变量 G, 整数型
.程序集变量 B, 整数型
.程序集变量 句柄, 整数型

.子程序 __启动窗口_创建完毕

创建目录 (取运行目录 () ＋ “\” ＋ “取窗口事件信息”)
时钟1.时钟周期 ＝ 100
监视热键 (&_按钮1_被单击, #Home键, )

.子程序 _时钟1_周期事件
.局部变量 屏幕鼠标坐标, 坐标型
.局部变量 句柄鼠标坐标, 坐标型
.局部变量 窗口句柄, 整数型

编辑框1.内容 ＝ 到文本 (取鼠标所在窗口句柄 ())
编辑框2.内容 ＝ 取窗口标题 (取鼠标所在窗口句柄 ())
编辑框3.内容 ＝ 取窗口类名 (取鼠标所在窗口句柄 ())
屏幕鼠标坐标 ＝ 取鼠标坐标 ()
窗口句柄 ＝ 取坐标句柄 (屏幕鼠标坐标.x, 屏幕鼠标坐标.y)
句柄鼠标坐标 ＝ 取鼠标坐标 (窗口句柄)
标题 ＝ 到文本 (句柄鼠标坐标.x) ＋ 到文本 (句柄鼠标坐标.y)
编辑框4.内容 ＝ 到文本 (句柄鼠标坐标.x)
编辑框5.内容 ＝ 到文本 (句柄鼠标坐标.y)
取当前鼠标处颜色值 (R, G, B) ' '''''''''''''''''''''''''下面是取RGB色的
编辑框13.内容 ＝ 到文本 (R)
编辑框14.内容 ＝ 到文本 (G)
编辑框15.内容 ＝ 到文本 (B)
_启动窗口.底色 ＝ 取颜色值 (R, G, B)
' ’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘' 预先定义r、g、b变量，为整数型
__启动窗口_按下某键 (90, 0)

.子程序 __启动窗口_按下某键, 逻辑型, , 取句柄类名标题
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 color, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 zjj, 字节集
.局部变量 参数一, 整数型
.局部变量 参数二, 整数型

.如果 (键代码 ＝ #Z键 ＝ 真) ' '''''''''''''''''''''''''''''''''''''''''''''取窗口句柄标题类名用
写到文件 (取运行目录 () ＋ “\” ＋ “取窗口事件信息” ＋ “\” ＋ 到文本 (取时间 (取现行时间 ())) ＋ “.txt”, 到字节集 (“现行窗口句柄是：” ＋ “ ” ＋ 编辑框1.内容 ＋ #换行符 ＋ “现行窗口标题是：” ＋ “ ” ＋ 编辑框2.内容 ＋ #换行符 ＋ “现行窗口类名是：” ＋ “ ” ＋ 编辑框3.内容))
.否则

.如果结束

句柄 ＝ color ' ‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘下面的取颜色值能用到
.判断循环首 (参数二 ＝ 参数一)
超级延时 (100000, 1)
color ＝ 窗口_取坐标处颜色 (窗口_取句柄 (到整数 (编辑框1.内容), , 到文本 (编辑框3.内容), 到文本 (编辑框2.内容)), , )
zjj ＝ 到字节集 (color)
编辑框6.内容 ＝ 到文本 (color)
调试输出 (color)
' 如果 (color=到数值（编辑框X.内容）)
' 标签1.标题 ＝ “1”
' '标签2.标题 ＝ “2”
' 标签2.标题 ＝ “4”
.判断循环尾 ()

.子程序 __启动窗口_鼠标右键被按下, 逻辑型, , 取窗口标题类名句柄用到
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

写到文件 (取运行目录 () ＋ “\” ＋ “取窗口事件信息” ＋ “\” ＋ 到文本 (取时间 (取现行时间 ())) ＋ “.txt”, 到字节集 (“现行窗口句柄是：” ＋ “ ” ＋ 编辑框1.内容 ＋ #换行符 ＋ “现行窗口标题是：” ＋ “ ” ＋ 编辑框2.内容 ＋ #换行符 ＋ “现行窗口类名是：” ＋ “ ” ＋ 编辑框3.内容))

Answer 1

用多线程，不过看了你的部分代码，只要加个代码： 处理事件（） 就可以了