如何避免两次调用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); 

首先创建一个splashform，然后一个数据模块和持续的主要形式。该页面说Application.CreateForm不应该被调用两次。上面的代码应该改变吗？

Regards

Answer 1

多次使用Application.CreateForm没有任何问题。但是这为每个可能是代码味道的表单引入了全局变量。 不幸的是，IDE为每个表单创建一个。虽然你可以删除它们，如果你喜欢。

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

主要的数据模块可以通过主窗体创建。但它也可能是全球性的，仅仅是品味的问题。

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

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

所以，为了避免任何恶心，你应该限制你的唯一的呼叫。这只用一个全局表单来完成。

Answer 2

如果TClientData是一个数据模块，并且TClientMainForm是一个表单，那么no（除了可能在最后的两个FreeAndNil调用 - 不是真的需要）。但保重。因为它罗布·肯尼迪说，在他的帖子中，Application.CreateForm确实落后于其他东西（它设置的MainForm变量），所以我会建议建立按以下规则项目文件：

1. 使用单一调用创建所有想要在启动时创建的表单至Application.CreateForm - 通常这由IDE完成。

2. 从项目文件中删除您要在程序中动态创建（按需）的表单。 （在Project |选项|表格...） - 从“自动创建窗体”将它们移到“可用”

3. 在创建窗体中使用TmyForm.Create（所有者）你代码（等）和不是与Application.CreateForm（...）。顺便说一句，如果你确信你会释放表格，那么最好（为了加快速度）拨打TmyForm.Create（无） - 低于没有任何所有者。

4. 如果你想在启动时做一些初始化的，你可以在绑已创建的窗体/数据模块的项目文件中的程序/方法和之前运行的应用程序运行它。

例如：

begin 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.CreateForm(TdmoMain, dmoMain); //<--this is a data module 
    Application.CreateForm(TfrmMain, frmMain); //<--this will became the main form 
    Application.CreateForm(TfrmAbout, frmAbout); 
    //... other forms created here... 
    frmMain.InitEngine; //<--initialization code. You can put somewhere else, according with your app architecture 
    Application.Run; 
end. 

通过这种方式，您将有项目文件干净，你会确切地知道哪个是哪个。

HTH

Answer 3

当我写这篇文章，我想主要的代码外的DPR文件。人们可以在DPR文件中看到由IDE生成的表单创建代码，并认为这是创建表单的最佳方式，所以他们在程序中的其他地方使用。他们有时在主窗体的OnCreate事件处理程序中使用它来创建其程序所需的其他窗体，然后他们遇到了问题，因为该程序的主窗体并非他们的想法。

在您提供的代码中，只需调用一次CreateForm就很容易。用它作为主窗体，除此之外别无它用。数据模块不是主要的形式，所以你不需要CreateForm的魔力。

SplashForm := TSplashForm.Create(Application); 
SplashForm.Show; 
SplashForm.Update; // force update 
Application.Initialize; 

// Change to this. 
ClientData := TClientData.Create(Application); 

SplashForm.Update; // force update 
Application.CreateForm(TClientMainForm, ClientMainForm); 
Application.ShowHint := True; 

Application.Run; 
ClientMainForm.ServerConnected := false; 

// Remove these. 
FreeAndNil(ClientMainForm); 
FreeAndNil(ClientData); 

你真的不应该释放你在这里创建的对象，因为你不拥有它们。它们由全局应用程序对象拥有，因此让它解决它们的问题：删除两个对FreeAndNil的调用。

Answer 4

您引用的文章不正确。有几个有效的原因，你为什么要多次调用Application.CreateForm

1）数据模块：你可能希望所有的时间都可用。最好的方法是Application.CreateForm。我知道有几个主题数据模块的应用，例如客户，发票，地址来处理数据库的不同区域&整齐地封装了功能。所有这些都创建在.dpr

2）大，缓慢加载的东西（这是一个坏主意在&本身，但这些事情发生，并经常由支持程序员继承...）。将加载时间移动到应用程序启动中，就像您的示例代码以及启动画面更新一样。用户期望应用程序需要一段时间才能得到持续感谢我们的同事上的Microsoft Office工作的斯特林努力降低预期我们其余的人:)

所以吧，总之，不担心你的代码很好 - 但你可能会失去“FreeAndNil”的东西。但是小灵通打对话框类型的东西是最好的调用：

with TMyform.Create(nil) do 
try 
    //Setup 
    case ShowModal of 
    // Whatever return values you care about (if any) 
    end; 
finally 
    Free; 
end; 

短，甜，给点&最大限度地减少内存使用...