我想让一个窗体建立在一个单独的线程中,独立于主线程,谁帮我写这个线程类.

Question

或者谁能给我一个这样的例子吗?
[email protected]

Answer 1

TCreateFormThread = class(TThread)
    private
      FForm: TForm1;//你要创建的窗体；
    protect
      procedure Execute;override;//线程执行函数
    public
      constructor Create; //线程创建函数
  end;constructor TCreateFormThread.Create(AForm: TForm);
begin
  FreeOnTerminate := True;
  inhertied Create(False);
end;procedure TCreateFormThread.Execute;
begin
  { 创建并显示窗体 }
  FForm := TForm.Create(nil);
  FForm.show;
end;

Answer 2

粗看了一下。楼上的有问题在：private
      FForm: TForm1;//你要创建的窗体；
TForm1从哪里来？？？应该为TForm

Answer 3

TForm1可以在另一个pas中，然后在线程pas中引用这个unit不就有tform1了?