[请教高手]关于系统初始化

[mathsfan]

这里假定代码：
initialization
...
frm:=Tfrm.Create(nil);
frm.ShowModal;
代码A
而我在frm中点某个按钮时又弹出B窗体，有无办法弹出B窗体前先执行初始化的“代码A”，
注意：frm.ShowModal，frm必须为ShowModal形式。

[haitao]

让B窗体的OnActive事件来执行“代码A”，
不过，OnActive事件会被频繁触发，还需要加一个状态量来控制只执行一次

[haitao]

其实，都可以在frm的那个按钮的点击事件里先执行“代码A”啊

[mathsfan]

这么说吧，我在initialization里做了很多初始化的动作，初始化时我要弹出A窗体，因为是ShowModal形式，所以剩余的初始化代码并不会执行，在A窗体里面点某个按钮后再继续执行余下的初始化代码。
等待高人出现...

[haitao]

把弹出A窗体前的初始化代码写成一个函数init1
把剩余的初始化代码（也就是代码A）写成一个函数init2

initialization

init1;
frm:=Tfrm.Create(nil);
frm.ShowModal;
// 代码A

在formA.btnxxOnClick()里
begin
init2;
formB.showmodal;
end;