Delphi中Loaded()之后调用了什么

Question

我有一些代码在 Loaded() 函数中对内部对象进行一些设置。但是，某些外部对象尚未完全创建，而是在 Loaded() 函数完成之后创建。 Delphi调用Loaded()后调用了什么函数？

更好的是组件的创建顺序是什么？

基本上我有一个 TCP 服务器和客户端。大多数人会将这两个组件放置到两个单独的应用程序中，有些人会将它们放置在同一个应用程序中以进行本地访问。

我的客户端尝试在 OnLoaded() 中从服务器获取数据，但服务器可能尚未启动！我想知道在调用所有 OnLoaded() 之后是否调用了另一个函数。

Answer 1

Loaded 在 dfm 流入后立即调用，并且不应该用于访问服务器。您最好的选择可能是在构造函数中向自己发布一条自定义消息，并有一个响应该消息的消息处理程序过程。发布消息会将其放入消息队列的末尾，因此在处理完其前面的所有其他消息之前，不会对其进行处理。这应该会延迟足够长的时间，以便您的组件完全构建起来可供使用。

Answer 2

1. 我在某些组件中使用了断点，并坚定地认为 AFTERCONSTRUCTION 称为 BEFORE LOADED 而不是 AFTER。

2. 我也在 FORM 上做了同样的事情，并坚定地认为 AFTERCONSTRUCTION 被称为 AFTER LOADED 而不是 BEFORE。

请记住，AfterConstruction 是 TObject 中的方法，但 Loaded 不是。由此可见，Loaded 是由代码生成的，该代码不一定将其按照相对于 AfterConstruction 的特定顺序放置，因为 Loaded 实际上不是 TObject 构造序列的一部分，而 AfterConstruction 是。

事实上，如果您研究 RTL 源代码，您会发现 Loaded 甚至没有被 TComponent 的任何 self.method 调用，但实际上是由正在读取 DFM 的流读取器调用的，并且这很可能发生在“所有者”组件的控制。因此，我强烈建议它与 AfterConstruction 的执行相关的关系并不能得到真正的保证。它以表单的特定顺序出现的事实是因为表单很可能是启动流读取的组件。换句话说，在表单中 Loaded 位于 AfterConstruction 之前，这有点巧合。

进一步的研究表明，包含以下代码的非形式组件可能永远不会调用事件处理程序。

procedure Txxx.AfterConstruction; override;
begin
   inherited AfterConstruction;
   if Assigned(FOnCreate) then FOnCreate(Self);
end;

原因是AfterConstruction，如果在属性加载之前调用，会发现FOnCreate还没有被赋值！

在这种情况下，您确实必须使用以下内容：

procedure Loaded; override;
begin
   inherited Loaded;
   if assigned(OnLoaded) then OnLoaded(self);
end;

就像我所说的，这将为表单拥有的组件产生与表单本身不同的结果！ TForm 组件通常是 DFM 流读取器的调用者，并且流读取器为从表单读取的每个组件调用 Loaded。 （幸运的是）这个过程在表单的 AfterConstruction 之前启动，但是该读取器加载的每个组件都会在其加载的方法之前调用其 AfterConstruction 方法。

量子ED。

具有讽刺意味的是，Delphi 6 帮助文件中说“TObject 中实现的 AfterConstruction 方法什么都不做。在创建一个在创建对象后执行某些操作的类时重写此方法。例如，TCustomForm 重写 AfterConstruction 以生成 OnCreate 事件。 ”

它没有说的是，如果您在 TCustomForm 以外的任何东西上尝试这个（它已经做到了），它就不起作用！因为只有表单（已经拥有它）才会在调用 AfterConstruction 之前加载其 OnCreate 属性。任何其他组件都不会，因为表单调用的 DFM 读取器会在 Loaded 之前调用 AfterConstruction！ Borland 等人的一个明显案例。等人。不理解他们自己的代码，或者最多编写一个帮助文件条目来暗示某些事情是可能的，而实际上它是不可能的。

请注意，如果您的组件不在表单上并且是在运行时创建的（即使这是作为“拥有的”组件），则不会调用其“Loaded”方法，因为不涉及流读取器。

另一个有趣的地方是“Dr”Bob Swart 不久前写的关于 AfterConstruction 的内容，即它代表了可以调用虚拟方法的点。显然这只是部分正确：如果在 AfterConstruction 之前调用表单的 Loaded 方法，那么您将无法从 Loaded 调用任何虚拟方法（如果这是真的）。 （显然）情况并非如此，因为 Loaded 本身就是一个虚拟方法！显然，流读取器在构造函数和 AfterConstruction 之间调用了表单的 Loaded。这就引出了一个问题：流读取器实际上是通过什么方法调用的？我的猜测是，要么它在应用程序（而不是表单）的控制下运行，并且它故意以不同于其他组件的方式对表单调用 AfterConstruction，要么它是表单构造函数在创建 VMT 后执行的最后一件事，因此在表单中调用 AfterConstruction 之前发生的最后一件事。因此，在调用表单的 AfterConstruction 之前，将调用该表单所拥有的组件的所有 AfterConstruction-Loaded 对联。跟踪调用还表明，在调用所有这些组件的所有加载方法之前，大多数情况下都会调用 AfterConstruction。然而，我没有测试存在分层“父级”（例如带有组件的面板）的情况，因此可能会有所不同。

Answer 3

通常您会为此目的重写 TObject.AfterConstruction。

执行顺序为：

  each Component.AfterConstruction in creation order
(Form or DataModule).Loaded  
  each Component.Loaded in creation order
(Form or DataModule).AfterConstruction 

跟踪：

Debug Output: button AfterConstruction Process Project2.exe (4876)
Debug Output: Form Loaded Process Project2.exe (4876)
Debug Output: button Loaded Process Project2.exe (4876)
Debug Output: Form AfterConstruction Process Project2.exe (4876)

Answer 4

我不确定你的意思

服务器可能尚未启动

无论如何，如果客户端和服务器都在同一个应用程序表单或数据模块上，我看到替代方案：

1. 您可以“强制”系统之前创建服务器 在服务器的 OnLoad 中启动服务器，并且在客户端 OnLoad 中启动，因为 文档 说：

   <块引用>

   当流系统从表单文件加载表单或数据模块时，它首先通过调用其构造函数来构造表单组件，然后从表单文件中读取其属性值。读取所有组件的所有属性值后，流系统按照组件创建的顺序调用每个组件的 Loaded 方法。这使组件有机会初始化依赖于其他组件或其自身其他部分的值的任何数据。

2. 每当服务器启动时通知“客户端”以使其初始化（从服务器提取数据）。您可以使用直接方法调用、发布消息或任何您觉得舒服的方式。

3. 让客户端在其自己的 OnLoad 方法内站立服务器。

Answer 5

为什么不使用主 Form 的 onCreate 事件？