窗体的构造函数和OnCreate事件

窗体的构造函数和创建事件和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呢,找不出原因,大概是读取窗体资源文件时作了些什么处理吧。


 
---------------------
如果OldCreateOrder为False,则OnCreate将在所有构造函数执行完之后才执行。如果OldCreateOrder为True,则OnCreate在TCustomForm的构造函数执行完就执行。

猜你喜欢

转载自www.cnblogs.com/jijm123/p/10432268.html