求一个线程和主界面的交互的演示代码
求一个线程和主界面的交互的演示代码。线程和主界面处于两个Unit。线程中的user中不能引用主窗口。我只是想学习一下,线程和主界面交互的方法。去网上查了好几天资料,能查到的都是user中引用主窗口的方法。据说可以通过别的方法实现,求大神指点下了。跪求~~~

------解决方案--------------------
就用DELPHI自带的DEMO。DELPHI 7 中目录如下:
C:\Program Files\Borland\Delphi7\Demos\Threads\thrddemo.dpr 
------解决方案--------------------
让我来教你一招吧:
用类似回调函数的方法:
第一:在线程的unit中定义:TCallFunction = procedure of object;
第二:在线程类中定义一个公共变量:FCallMain: TCallFunction;
第三:在主界面unit中定义一个函数:procedure TMain.Test();  
第四:假设线程类的实例是ThreadA,让ThreadA.FCallMain=Test;
第五:在线程类就可以直接用 FCallMain了,
FCallMain的功能跟主界面的Test功能是一样的,如果Test函数有操作界面的操作,需要按照下面调用:
synchronize(FCallMain);
明白了吧?? 

 

http://www.myexception.cn/delphi/264524.html