动态表单创建

Question

我在运行时创建我的表单，如下所示：

AboutForm := TAboutForm.Create(AboutForm);
try
  AboutForm.ShowModal;
finally
  AboutForm.Free;
end;

但是使用这些有什么区别：

AboutForm := TAboutForm.Create(Self);
AboutForm := TAboutForm.Create(nil);
AboutForm := TAboutForm.Create(Application);

从我所见，它们似乎都工作相同，但哪个是正确的，或者它们都是正确的，通常是最好使用的？

感谢您的 cmets :)

Answer 1

TForm.Create 将Owner 作为参数。

在您的第一个示例中，AboutForm 是所有者。这显然是个坏主意，因为它还没有创建。

当Self为参数时，调用的实例为所有者。
当Application为参数时，应用程序为所有者。
当nil 为参数时，AboutForm 没有所有者。没关系，但在这些情况下，您必须记住自己释放表单。

当你传入一个所有者时，你实际上不需要明确地释放 i。当所有者被释放时，所有者将释放它。

你的代码应该是这样的：

AboutForm := TAboutForm.Create(nil);
try
  AboutForm.ShowModal;
finally
  AboutForm.Free;
end;

Answer 2

当您动态创建表单时，即表单为available 表单。 您必须通过表单的owner。

.. 所以在你的情况下

AboutForm := TAboutForm.Create(Self);

AboutForm := TAboutForm.Create(nil);

AboutForm := TAboutForm.Create(Application);

1. 自我
2. 无
3. 应用

是AboutForm 的所有者（您可能已经知道了）

But what is the difference though in using any of these:

这是来自about.com-Form Owner的东西

nil - 指定没有对象拥有表单 - 因此开发人员（您）负责释放创建的表单（当您不再需要表单时调用 myForm.Free）

Self - 指定调用方法的对象。例如，如果您从 Button 的 OnClick 处理程序（此按钮放置在 MainForm 上）内部创建 TMyForm 表单的新实例 - self 指的是“MainForm”。因此，当 MainForm 被释放时 - 它也会释放“MyForm”。

Application - 指定运行应用程序时创建的全局 TApplication 类型变量。 “应用程序”封装了您的应用程序，并提供了许多在程序后台发生的功能。

这也是Form Owner

a)Formx.Create(Application) -> 应用程序终止时将释放表单资源

b)Formx.Create(Self) -> 销毁所有者对象时释放表单资源（如果 Self 是 TComponent 的后代）

c)Formx.Create(nil) -> 你负责释放表单。

这是来自

a在自动创建表单时被delphi使用

b 对于有多个子窗口需要在主窗体关闭时关闭的主窗体很方便

c 便于显示对话窗口

为了释放你可以这样做ACtion := caFree关闭表单。

Answer 3

第一个

AboutForm := TAboutForm.Create(AboutForm);

告诉TAboutForm，它的Owner是一个对象，之前已经赋值给指针“AboutForm”（也可以是NIL -> no Owner）。

的“所有者”参数

TForm.Create(Owner: TComponent) 

告诉表单，它的所有者是谁。 TComponents 在其所有者处注册自己，如果提供的话。所以，主人和它的孩子之间有某种沟通。

示例：如果所有者被释放，他也可以释放它拥有的组件。

因此，

TAboutForm.Create(Self);

表示“Self”是新 TAboutForm 的所有者，如果 (Self is TComponent)。

TAboutForm.Create(NIL);

也是一种可接受的解决方案，但在这里，您必须自己释放组件（除了您在 MDI 窗口中创建 TAboutForm）。