• 窗体的构造函数和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的构造函数执行完就执行。

  • 相关阅读:
    一个很棒的DiabloII研究站:)
    跳票了?又跳了!
    羊皮卷的实践第二十四章
    羊皮卷的实践第二十六章
    羊皮卷的实践第二十五章
    Timer的控件使用
    英语名言名句集锦
    Passwordstrength控件
    羊皮卷的实践第二十三章
    羊皮卷的实践第二十二章
  • 原文地址:https://www.cnblogs.com/jijm123/p/10432268.html
Copyright © 2020-2023  润新知