有关MDI窗口的问题，求助！

Question

我需要集成几个功能比较独立的模块，每个模块主界面都是使用MDIForm。首先选类似欢迎性质的普通Form作为项目运行时的第一个界面，也是项目的主窗体，上面有有几个进入各个功能独立模块的按钮。但是当进入任何一个模块的主界面（是MDIForm）之后，在创建一个MDIChildren窗体的时候异常，显示“cannot create form.No MDI forms are currently active”。如果选用某个模块的主界面作为项目的主Form，该模块包含MDIChildrenForm创建都没有问题。问题是各个功能模块的主界面不是一样的，所以不能这样做。各位有没有什么好办法？

Answer 1

很容易的
只要把主窗体的Application传进去就行了
例如
{dll}
function GetA(App :TApplication):Integer;stdcall;export
var
  P : ^LongInt;
begin
  P :=@Application;  
  P^ :=LongInt(App);  
end;{Exe}
GetA(Application);