delphi - 如何避免调用 Application.CreateForm 两次？

Question

我偶然发现了这个页面Why shouldn’t I call Application.CreateForm 。现在我有一些这样的代码:

SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update; // force update
Application.Initialize;
Application.CreateForm(TClientData, ClientData);
SplashForm.Update; // force update
Application.CreateForm(TClientMainForm, ClientMainForm);
Application.ShowHint := True;

Application.Run;
ClientMainForm.ServerConnected := false;
FreeAndNil(ClientMainForm);
FreeAndNil(ClientData);

首先创建一个启动窗体，然后创建一个数据模块，最后创建主窗体。该页面指出 Application.CreateForm 不应被调用两次。上面的代码应该修改吗？

Answer 1

多次使用Application.CreateForm并没有什么问题。但这会为每个表单引入全局变量，这可能会产生代码味道。不幸的是，IDE 为每个表单创建一个。尽管您可以根据需要删除它们。

更好的方法是在需要时创建表单，并在准备好时释放它。所以你只使用Application.CreateForm作为主窗体。

主表单可以创建主数据模块。但它也可以是全局性的，只是品味问题。

因此，要回答这个问题，您可以通过在本地创建和释放表单来避免 Application.CreateForm。

文章提到了Application.CreateForm的副作用(第一个完成的表单是主表单)。因此，如果主窗体使用 Application.CreateForm 创建其他窗体，可能会出现意想不到的副作用。

因此，为了避免任何麻烦，您应该将自己限制为一次调用。仅使用一种全局表单即可完成此操作。