高人请进来

linweihua77 2013-05-28 08:55:10
本人在调试一个系统时遇到一个奇怪的问题,编译通过,但是在运行时出错,经过断点跟踪,发现Form中的constructor create 和Form本身的Create执行顺序乱了,如下代码段:

constructor TBaseFormDataNavChild.Create(AOwner: TComponent;
AMoudleName: string = '');
begin
1 inherited Create(AOwner, AMoudleName);
2 with lc_SalaryMainForm.dxBarListWindows do
3 begin
4 Items.AddObject(Self.Caption, Self);
5 end;
6 da := TDataAccess.Create(Self);
end;

procedure TBaseFormDataNavChild.FormCreate(Sender: TObject);
begin
7 inherited;
8 CreatePopMenu;
end;

在我本机调试时的执行顺序是:1,7,8,2,3,4,5,6 ,为什么会是这样?请高人指点,不胜感谢!
...全文
110 点赞 收藏 12
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
linweihua77 2013-05-28
引用 8 楼 xhz8000 的回复:
constructor TBaseFormDataNavChild.Create 请楼主你这个构造函数是不是 在你的的窗口定义的, inherited 然后不就是 TBaseFormDataNavChild.FormCreate 不过发现你的代码1 inherited Create(AOwner, AMoudleName); 是这样写的,不知道在你的子类里面的第一个父类是否存在 Create(AOwner, AMoudleName); 这样的构造函数!
对,在父类的FormCreate中,有这样的代码:inherited Create(AOwner, AMoudleName);
回复
xhz8000 2013-05-28
昏! 终于知道你说啥了! 执行本身的FormCreate, 你还是自己执行看看把! 怎么不是执行本身的FormCreate。
回复
xhz8000 2013-05-28
constructor TBaseFormDataNavChild.Create 请楼主你这个构造函数是不是 在你的的窗口定义的, inherited 然后不就是 TBaseFormDataNavChild.FormCreate 不过发现你的代码1 inherited Create(AOwner, AMoudleName); 是这样写的,不知道在你的子类里面的第一个父类是否存在 Create(AOwner, AMoudleName); 这样的构造函数!
回复
linweihua77 2013-05-28
引用 1 楼 xhz8000 的回复:
这个执行顺序是对的! inherited Create(AOwner, AMoudleName); 就是调用父类的 TBaseFormDataNavChild.FormCreate(Sender: TObject); 在这里inherited;执行父类的 Create; 再执行 8 CreatePopMenu; 然后就是你的2,3,4,5,6
你的理解不对,inherited Create(AOwner, AMoudleName)是执行父类的FormCreate,而不是执行本身的FormCreate,执行完父类的FormCreate,应该接着往下执行,然后再执行本身的FormCreate
回复
linweihua77 2013-05-28
执行顺序肯定是错误的! 这个系统用了好多年了,只是最近要修改,在我本机编译后才出现错误,然后我到同事的电脑去调试,编译后运行正常!
回复
linweihua77 2013-05-28
这个系统用了好多年了,只是最近要修改,在我本机编译后才出现错误,然后我到同事的电脑去调试,发现执行顺序是:1,2,3,4,5,6,7,8 ,我认为正确的顺序就是:1,2,3,4,5,6,7,8
回复
火龙岛主 2013-05-28
执行顺序是OK的。 楼主自己有点乱 1.constructor Create一般是写类的时候才需要继承写的,最好不要调用元件,因为有可能元件还没创建。 2. 你可以在FormCreate中调用元件的属性,为其赋值,因为这个时候所有的元件均已创建完成。 楼主自己跟踪一下FormCreate的执行时机就知道了。
回复
bdmh 2013-05-28
inherited Create(AOwner, AMoudleName);这个会调用父类的create
回复
酣酣 2013-05-28
楼上正解! 构造函数和OnCreate同时使用有点儿混乱! 其实没那个必要! 代码集中放在其中任何一个都可以实现你想要的功能!
回复
xhz8000 2013-05-28
这个执行顺序是对的! inherited Create(AOwner, AMoudleName); 就是调用父类的 TBaseFormDataNavChild.FormCreate(Sender: TObject); 在这里inherited;执行父类的 Create; 再执行 8 CreatePopMenu; 然后就是你的2,3,4,5,6
回复
linweihua77 2013-05-28
引用 11 楼 ysai 的回复:
窗体有个属性:OldCreateOrder,你看是不是和这个有关
兄弟,你真行,你牛!高手就是不同,一言点中要害。果真是这个属性的原因,但是为什么相同的源代码拷贝到我电脑打开就是TRUE,在别人的电脑打开就是FALSE呢?
回复
ysai 2013-05-28
窗体有个属性:OldCreateOrder,你看是不是和这个有关
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4924

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2013-05-28 08:55
社区公告
暂无公告