3

我的应用程序中有一个 test.bpl 包，它有一个名为 myPackageForm 的表单。在我想关闭 myPackageForm 时加载我的包后，应用程序将终止。

主要项目初始化：

Application.Initialize;
Application.CreateForm(TMainForm,MainForm);
Application.Run;

主窗体窗体创建：

aPackage := LoadPackage('my bpl path'+test.bpl);
@P_ItemClick := GetProcAddress(aPackage,'ItemClickExcecute');

MainForm 按钮单击：

P_ItemClick(Sender);

testPackage 命令单元：

Procedure ItemClickExecute(Sender : TObject)
begin
   TmyPackageForm.ShowForm();
end;

exports
  ItemClickExecute;

end.

myPackagForm 有一个类过程来显示它：

Class Procedure TmyPackagForm.ShowForm;
begin
 if not Assigned(myPackagForm)
    myPackagForm := Application.CreateForm(TmyPackagForm ,myPackagForm );
 myPackagForm.Show;
end;

并且在 OnClose 程序中有：

Release;

作为解决方案，我尝试了另一个命令：

myPackagForm := TmyPackagForm.Create(Application);

到 myPackagForm 创建；

任何人都可以知道在Delphi XE4中使用包上的 CreateForm 命令发生了什么吗？

4

2 回答 2

3

TApplication.CreateForm不仅可以创建一个表单，而且还可以使通过该方法创建的第一个表单成为TApplication.MainForm.

关闭 MainForm 会导致关闭应用程序。

更新

您的应用程序中有 2 个TApplication实例。

  1. 你的正常申请
  2. 在 BPL 内部

因此，BPL 中的表单将成为 BPL 的 MainForm。Application并关闭此表单将PostQuitMessage(0)在您的主应用程序进程的上下文中执行，这会强制整个应用程序退出。

于 2013-12-22T06:48:18.003 回答
3

鲁弗爵士已经掌握了基础知识。通过调用创建的第一个表单CreateForm成为主表单。当主窗体关闭时，应用程序关闭。

现在，您已经展示了对 的两个调用CreateForm。一个在主机应用程序中，一个在动态加载的包中。很明显，第一个运行的是来自主机应用程序。那么，封装中的表单如何才能让应用程序崩溃呢？好吧，正如 Rufo 爵士所说，只有在您的流程中有两个应用程序实例时，才会发生这种情况。

那么接下来的问题是，你的进程中怎么会有两个应用实例呢？那不应该发生。包的全部意义在于允许 Delphi 单元在不同模块之间共享。如果您正确构建了应用程序，那么您将只有一个实例TApplication在主机可执行文件和所有包之间共享。

因此，唯一合理的结论是您的模块之一不是使用运行时包构建的。例如，主机应用程序可能包含 RTL/VCL，静态链接在可执行文件中。并且您的包链接到 RTL/VCL 运行时包。或者可能是动态加载的包，其中包含静态链接的 RTL/VCL。尽管 IIRC，编译器阻止了这种情况的发生。

无论出了什么问题，解决方案是您的所有模块都必须使用运行时包构建。所有 RTL/VCL 库都必须通过运行时包链接，并且不得静态链接。

因此，替换Application.CreateForm为TMyPackageForm.Create只是抑制了更广泛的问题。在您的应用程序中只有一个 RTL/VCL 实例至关重要。通过在所有模块中使用运行时包来实现这一点。

TMyPackageForm.Create在您的包中创建表单的正确方法当然是这种情况。我只Application.CreateForm用于主要形式。我从不在其他任何地方使用它。但是不要试图仅仅通过Application.CreateForm从你的包裹中取出来解决你的直接问题。修复与 RTL/VCL 的链接。

于 2013-12-22T12:19:27.860 回答