无限循环模块放在线程里面执行后，关闭退出界面时报错

yhmjh

变量 线程ID
//从这里开始执行
功能 执行()
    //从这里开始你的代码
    循环(真)
        等待(100)
        变量 key=键盘等待按键()
        如果(key==32)
            变量 key2=键盘等待按键()
            如果(key2==32)
                调试输出("hello tc")
            结束
            
        结束
    结束   

结束
//启动_热键操作
功能 启动_热键()
    线程ID=线程开启("执行","")
结束

//终止热键操作
功能 终止_热键()
    线程关闭(线程ID)
结束

代码本身运行正常，但是点击界面关闭按钮时，卡界面报错，请高手指点一下。谢谢！
用的是TC5.2

ok963963ok

关闭程序必须关闭线程

yhmjh

ok963963ok 发表于 2015-7-9 11:51
关闭程序必须关闭线程

是在哪个位置关闭呢？试了很多次都不起作用，最好能给个代码，谢谢呢

yhmjh

yhmjh 发表于 2015-7-9 11:53
是在哪个位置关闭呢？试了很多次都不起作用，最好能给个代码，谢谢呢

怎样才能在关闭事件之前关闭那个线程呢，试了用其他按钮控制关闭线程，然后点击界面关闭按钮是可以的，但是现在需要的功能是不适应热键或者其他按钮关闭线程，怎么才能做到呢？在界面窗口关闭事件或者销毁时间，里面添加关闭线程也不行。。。怎么办啦？困扰好久啦

yhmjh

线程里面无限循环，退出是卡界面

yhmjh

界面关闭事件里面添加了一句强制关闭线程语句就解决了，
线程关闭(线程ID,1)，0是正常关闭，1是强制关闭
sleep(100)
控件关闭子窗口("循环XX",0)