窗体的构造函数和创建事件和OldCreateOrder属性有很大的关系

窗体的构造函数和创建事件和OldCreateOrder属性有很大的关系。

情况1：

如果窗体继承自TForm，且有如下形式：

1.      constructor TForm1.Create(AOwner: TComponent);

2.      begin

3.        inherited;

4.        Button1.Caption := '1';

5.      end;

6.     

 

7.      procedure TForm1.FormCreate(Sender: TObject);

8.      begin

9.        Button1.Caption := '2';

10.  end;

此时，设Tform1的OldCreateOrder（默认就是为False）属性为False，则执行顺序是3－4－9行。

如果设OldCreateOrder为True，则执行顺序为3－9－4，即先执行inherited然后执行Button1.Caption := '2'再执行Button1.Caption := '1'。

看帮助，解释是如果OldCreateOrder为False，则OnCreate将在所有构造函数执行完之后才执行。如果OldCreateOrder为True，则OnCreate在TCustomForm的构造函数执行完就执行。

这样就很容易理解上面的执行顺序了，OldCreateOrder为True时，执行到第3行时，便会调用TCustomForm的Create函数，该函数执行完后就调用OnCreate了，当然也就执行了第9行，最后才回来执行第4行。而OldCreateOrder为False时则等所有构造函数执行才调用onCreate事件。

 

为什么有这样的行为呢，还是看源代码：

事实上OnCreate会在两处地方被调用，一是TCustomForm的Create函数，一是AfterConstructor函数。

在TCustomForm的Create函数中，是这样的：

if OldCreateOrder then DoCreate;

在AfterConstruction函数中，是这样的：

if not OldCreateOrder then DoCreate;

 

这样就一清二楚了，同时也了解了AfterConstruction的执行时机，即所有的构造函数执行完毕后才由编译器调用。

 

情况2：

如果窗口继承自一个已经存在的窗口类比如TForm1，同时有像下面这样的代码：

1.      constructor TForm2.Create(AOwner: TComponent);

2.      begin

3.        inherited;

4.        Button1.Caption := '1';

5.      end;

6.     

 

7.      procedure TForm2.FormCreate(Sender: TObject);

8.      begin

9.        Button1.Caption := '2';

10.  end;

无论怎么设OldCreateOrder，都只是执行3－9－4，原因就是最后OldCreateOrder都是等于True。为什么会一直等于True呢，找不出原因，大概是读取窗体资源文件时作了些什么处理吧。