如何正确发布从“加载”过程执行的事件？

Question

在仅运行时的包中，我定义了一个 TFrame 后代，它发布了 OnLoaded 事件：

type
  TMyMethod = procedure() of object;

  TMyFrame = class(TFrame)
  protected
    FOnLoaded : TMyMethod;
    procedure Loaded(); override;
  published
    property OnLoaded : TMyMethod read FOnLoaded write FOnLoaded;
  end;

implementation

{$R *.dfm}

procedure TMyFrame.Loaded();
begin
  inherited;
  if(Assigned(FOnLoaded))
  then FOnLoaded();
end;

在仅设计时的包中，我注册了TMyFrame 组件，如下所示：

unit uMyRegistrations;

interface

uses
  Classes, uMyFrame;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyTestComponents', [
    TMyFrame
  ]);
end;

我已经安装了 designtime 包，我可以在工具面板中找到TMyFrame，它的OnLoaded 事件显示在对象检查器中。

我已将TMyFrame 拖入表单，然后通过在对象检查器中双击来分配OnLoaded 事件。 分配事件后，我注意到每次尝试在 Delphi 中打开表单文件时都会出现访问冲突错误消息（它让我打开“.pas”文件，但我无法切换到可视化设计器视图）。

我是否正确发布了OnLoaded 事件？如果是这样，还有什么问题？

更多信息：

1. 我使用的是 Delphi 2007（不知道是否重要）。
2. 对不同的父类执行相同的操作也会出现该错误（不仅适用于TFrame 后代）。

Answer 1

更新（不那么虚假）答案

您接受了我原来的答案，但我写的不正确。 Rob Kennedy 指出了前 Embarcadero 开发人员 Allen Bauer 关于Assigned 主题的article。

Allen 解释说Assigned 函数只测试方法指针中两个指针中的一个指针。设计时的 IDE 通过将标记值分配给任何已发布的方法属性（即事件）来利用这一点。这些标记值具有nil 用于方法指针中的两个指针之一（Assigned 检查的那个），以及标识另一个指针中的属性值的索引。

这意味着当您在设计时调用Assigned 时会返回False。只要您在调用它们之前使用Assigned 检查已发布的方法指针，那么您将永远不会在设计时调用它们。

所以我原来写的不可能是真的。

所以我挖得更深了。我使用了以下非常简单的代码，用 XE7 进行测试：

type
  TMyControl = class(TGraphicControl)
  protected
    FSize: Integer;
    procedure Loaded; override;
  end;

....

procedure TMyControl.Loaded;
begin
  inherited;
  FSize := InstanceSize;
end;

....

procedure Register;
begin
  RegisterComponents('MyTestComponents', [TMyControl]);
end;

只要执行Loaded 方法，这足以在设计时在 IDE 中引发 AV。

我的结论是，IDE 在流式传输时做了一些相当卑鄙的事情，当调用 Loaded 方法时，您的对象不适合使用。但我真的没有比这更好的理解了。

---

原始（非常虚假）答案

您不能在设计时执行事件处理程序，您的代码就是这样做的。原因是在设计时事件处理程序的代码不可用。

控件的代码可用，IDE 已加载它——但实现事件处理程序的代码不可用。该代码不是设计时包的一部分，它是当前在 IDE 中打开的项目的一部分。毕竟，它甚至可能还没有编译！

Loaded 方法应该像这样防御这种情况：

procedure TMyFrame.Loaded();
begin
  inherited;
  if not (csDesigning in ComponentState) and Assigned(FOnLoaded) then 
    FOnLoaded();
end;