Delphi：应用程序初始化 - 最佳实践/方法

Question

我经常遇到这个问题，我只是在寻找最佳实践/方法。 我有一个包含数据库/数据模块的应用程序，并且希望在启动时启动数据库/数据集，而无需在设计时将“运行时活动”设置为 true（数据库位置不同）。 当应用程序启动时，还运行网络“检查更新”例程。

给定 TForm 事件序列以及各种试验和错误的结果，我目前正在使用这种方法：

我使用主窗体中设置的“Globals”记录来存储所有全局变量，其中有一个元素称为 Globals.AppInitialized ( boolean），并在主窗体的初始化部分将其设置为 False。

在主窗体的 OnShow 事件中（此时所有窗体均已创建），我测试 Globals.AppInitialized; 如果它是 false，我运行我的“初始化”内容，然后通过设置 Globals.AppInitialized := True 来完成。

这似乎很有效，但这是最好的方法吗？ 从他人的经验、想法和意见中寻找见解。 蒂亚..

Answer 1

我通常总是关闭所有表单的自动创建，除了主表单和可能的主数据模块。

我了解到您可以做的一个技巧是将数据模块添加到您的项目中，允许它在主表单之前自动创建和创建。 然后，当创建主表单时，数据模块的 onCreate 将已经运行。

如果您的应用程序有一些代码要说，请设置控件的焦点（您不能在创建时执行此操作，因为它“尚不可见”），然后创建一条用户消息并将其发布到 oncreate 中的表单中。 一旦处理表单消息循环，消息就应该（不保证）被处理。 例如：

const
  wm_AppStarted = wm_User + 101;


type
  Form1 = class(tForm)
    :
    procedure wmAppStarted(var Msg:tMessage); message wm_AppStarted;
  end; 

// in your oncreate event add the following, which should result in your wmAppStarted event firing.
PostMessage(handle,wm_AppStarted,0,0);

我想不出有一次这条消息从未被处理过，但调用的本质是它被添加到消息队列中，如果队列已满，那么它就会被“丢弃”。 请注意存在边缘情况。

Answer 2

您可能希望在表单创建调用之后、Application.Run 之前直接干扰项目源（.dpr 文件）。 （或者甚至更早，以防万一。）

这就是我通常处理此类初始化内容的方式：

...
Application.CreateForm(TMainForm, MainForm);    
...
MainForm.ApplicationLoaded; // loads options, etc..
Application.Run;
...

Answer 3

我不知道这是否有帮助，但我的一些应用程序没有自动创建任何表单，即它们在 IDE 中没有主表单。

以 Application 对象作为其所有者创建的第一个窗体将自动成为主窗体。 因此，我只自动创建一个数据模块作为加载程序，并让该数据模块决定何时创建哪些数据模块以及以什么顺序创建哪些表单。 该数据模块有一个 StartUp 和 ShutDown 方法，它们在 dpr 中的 Application.Run 周围被称为“括号”。 ShutDown 方法对关闭过程提供了更多的控制。

当您为应用程序的不同用例设计不同的“主窗体”或者您可以使用一些配置文件来选择不同的主窗体时，这可能很有用。

Answer 4

Delphi中实际上没有“全局变量”这样的概念。 所有变量的范围仅限于它们所在的单元以及使用该单元的其他单元。

只需将AppInitialized和初始化内容作为数据模块的一部分即可。 基本上有一个类（或数据模块）来统治所有非 UI 的东西（有点像 One-Ring，除了不是所有邪恶之类的。）

或者你可以：

• 从你的启动屏幕调用它。
• 在登录期间
• 执行此操作在后台线程中运行“检查更新” - 不要强迫他们立即更新。 像 Firefox 那样做。

Answer 5

我不确定我理解为什么需要全局变量？ 如今，我编写的所有 Delphi 应用程序都没有使用单个全局变量。 即使我确实使用了它们，每个应用程序也从来没有超过几个。

因此，也许您需要首先思考为什么您真正需要它们。

Answer 6

我使用主数据模块来检查数据库连接是否正常，如果没有，则显示自定义组件表单来设置数据库连接，然后加载主表单：

Application.CreateForm(TDmMain, DmMain);

  if DmMain.isDBConnected then
    begin
      Application.CreateForm(TDmVisualUtils, DmVisualUtils);
      Application.CreateForm(TfrmMain, frmMain);
    end;

  Application.Run;

Answer 7

我使用的一个技巧是在主窗体上放置一个 TTimer，将时间设置为 300 毫秒，然后执行任何初始化（数据库登录、网络文件复制等）。 启动应用程序会立即调出主窗体，并允许进行任何初始化“操作”。 用户不会在启动多个实例时想着“哦..我没有双击...我会再做一次..”