多线程执行不了**

李涛

我以前在DELPHI中的多线程程序都没事

alang

关于多线程，请楼主参考 http://bbs.justep.com/forum.php? ... p;highlight=tthread
这里我给了例子的

jiahaiminghr

请楼主研究一下上面的连接

李涛

TMyThread = Class(TThread)
  public
    Context:TContext;
  protected
    procedure Execute; override;
  end;

实现：
procedure TMyThread.Execute;
var frm :TXQSFXMCT;
begin
  frm := TXQSFXMCT.Create(Context);
  Self.Terminate;
end;

procedure TMZHJSFCT.BizFormCreate(Sender: TObject);
begin
mythread :=TMyThread.Create(True);
mythread.Context :=Self.Context;
mythread.Resum();
end;

李涛

耗时操作在： frm := TXQSFXMCT.Create(Context);

atiger

楼主，你先研究一下12楼给你的链接，里面有例子

李涛

不用研究了，主要就是要在需要循环的地方加入application.ProcessMessages就行了，看来还是和一般的开发工具有不同呀，我想同的代码在DELPHI中就不需要加入application.ProcessMessages

jiahaiminghr

恭喜！

alang

不对吧，在线程中应该不需要调用application.ProcessMessages的，非多线程的程序才需要这样调用的

文世弘

线程里面不能操作VCL可视控件相关的逻辑，否则会死
对于需要操作的，采用同步方法执行
Thread.Synchronize