主任何如何等待线程执行完程, 主窗体是一个循环,先启动线程,当主窗体查到线程完成使edit1.text:='1',进入下一个循环,再启动线程,当当主窗体查到线程完成使edit1.text:='2'。问题1 :如何让主窗体知道线程完成了, 2:如何让主窗体等线程执行完再执行下一个循环。本人一点思路也没有,请各们大鸟指点一下,最好有个例子 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 delphi 线程等待函数 WaitForSingleObject 百度一下。 楼上是借助 wait 函数把线程同步化,这是一种方法,写起来稍微复杂一点。另一种方法是保持异步状态,在子线程中定义一个 TNotifyEvent 事件,主线程用事件例程来监视。子线程执行完后激活此事件,主线程就可以接管控制权了。 虽然可以用信号量来做,不过主线程一直卡在你的循环里面?这个异步通知窗体就行了:1、线程完成发个消息给窗体2、线程类设置个事件函数,Synchronize 函数调用你的事件, TThread.CheckTerminated 检查 Synchronize 怎么把数字是0的变成空? 请问如何是存储过程自动执行?谢了 出售全新DELPHI 2002-2003中文精华合集(20元)上海的当面交货 数据删除请教 程序员作到我个地步,真是惨呀,没钱用了,卖源代码. 如何获取最小化消息,WmSysCommand好像只能截到从右上角点-的,从任务栏里点最小化该怎么触发事件?? Image控件怎样得到从Powerpoint复制的图像内容 TQuickRep问题 求fastreport或水晶报表,那里有下? 另外有几个问题 图片在程序页面如何充满? Delphi 版权问题 delphi ADO控件,插入记录到数据库表,第二次出错
这个异步通知窗体就行了:
1、线程完成发个消息给窗体
2、线程类设置个事件函数,Synchronize 函数调用你的事件,