通过线程调用一个form怎么出错了

Question

type
  TWebthread = class(TThread)
  private
    WebCon1:TWebConnection;
    RichEdit1:TRichEdit;
    FrmMessage1:TfrmMessage;//frmmessage是我程序中的一个form，我这样定义有错吗,
  protected
    procedure Execute; override;
  public
    constructor Create(WebCon:TWebConnection;RichEdit:TRichEdit;FrmMessage:TfrmMessage);
    destructor Destroy; override;
  end;我想通过线程把它显示出来

Answer 1

对VCL的访问只能在主线程中所以应该使用Synchronize方法来显示窗体  TWebThread = class(TThread)
  protected
    procedure ShowForm;
    procedure Execute; override;
  end;
implementation
procedure TWebThread.Execute;
begin
  inherited;
  Synchronize(ShowForm);
end;procedure TWebThread.ShowForm;
begin
  Form2.ShowModal;
end;
然后实例化这个线程类就可以了