如何在一个UNIT的初始化工程中创建实例?我试了几次都不成功.成了一定给分.

Question

type
  TFrmFirst = class(TFrame)
    WebBrowser: TWebBrowser;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FrmFirst : TFrmFirst;implementationuses ControlSetUnit;{$R *.dfm}initialization
  SetLength(FrameArr,Length(FrameArr)+1);
  FrameArr[Length(FrameArr)-1] := TFrmFirst.Create(nil);end.注意,我程序在执行到FrameArr[Length(FrameArr)-1] := TFrmFirst.Create(nil);时报错,说什么COXXXX什么没有初始化,请问这个问题要怎么才能解决?

Answer 1

我刚才又试了一下,如果是动态创建FORM,那是可以的.但是FRAME就是不行.....

Answer 2

SetLength(FrameArr,Length(FrameArr)+1);
  FrameArr[Length(FrameArr)-1] := TFrame.Create(nil);

Answer 3

？？？frame好像和form的初始化不是一个原理吧？
不懂，帮你顶

Answer 4

有人说不理解代码,代码其实关键就在这里
var
  FrmFirst : TFrmFirst;initialization
  TFrmFirst.Create(nil);initialization在APPLICATION运行前初始化,而FRAME在APPLICATION没有执行前,创建似乎有问题....