多线程执行不了**

李涛

线程定义：
  TNotifyComplete =procedure(ByCreated: TForm) of Object;//通知事件
  TMyThread = Class(TThread)
  public
    IsComplete :TNotifyComplete;
  protected
    procedure Execute; override;
  end;

实现：
procedure TMyThread.Execute;
var frm :TXQSFXMCT;
begin
  frm := TXQSFXMCT.Create(nil);
  if Self.IsComplete <> nil then IsComplete(frm);
  Self.Terminate;
end;

//通知已经创建选取项目窗体
procedure TMZHJSFCT.IsComplete(frm :TForm);
begin
  Self.frm_SelectFYMX := TXQSFXMCT(frm);
end;

procedure TMZHJSFCT.BizFormCreate(Sender: TObject);
begin
mythread :=TMyThread.Create(False);
end;

线程执行方法不执行，不知何因？

jiahaiminghr

我这里执行Execute方法了，只是IsComplete没有赋值，所以直接执行self.Terminate了

李涛

真是奇怪

李涛

我试了一下，感觉这个多线程不是真的多线程，多线程过程一执行，主线程也不动了

jiahaiminghr

我这里执行Execute方法了，只是IsComplete没有赋值，所以直接执行self.Terminate了

jiahaiminghr

最初由 李涛 发布
[B]我试了一下，感觉这个多线程不是真的多线程，多线程过程一执行，主线程也不动了 [/B]

主线程也不动了 ： 是指什么？

李涛

我在工作线程中执行一个长时间调用后，我的主线程就进入死机一样的状态，界面不能进行操作

jiahaiminghr

你的工作线程执行代码是怎么写的？
让我看看吧！

李涛

删除了，我就是在工作线程中创建了一个窗体，这个窗体创建时耗时较长，然后就像死机了

李涛

差不多就是：
var frm :TfrmCustomer;
begin
   frm :=TfrmCustomer.Create(Context);//Context是我创建线程时输入的公共域
  self.Terminate;
end;