自定义组件：如何将事件延迟至FormCreate之后触发

这个问题我之前也碰到过——Delphi组件的生命周期里，组件自身的初始化完成往往早于窗体的FormCreate执行，所以你的自定义OnSelChange会提前触发。你现有代码里的csLoading和csReading检查不够，因为组件加载完DFM后这两个状态就会被清除，但窗体还没走完创建流程。

下面给你两个靠谱的方案，优先推荐第一个，完全贴合Delphi组件的设计规范：

方案一：利用Loaded方法设置初始化完成标志 #

Delphi的Loaded方法是组件在完成所有初始化（包括从DFM加载属性、子组件创建）后才会调用的，而且这个时机刚好在FormCreate之后，完美匹配你的需求。

具体步骤： #

1. 在组件类里添加一个私有布尔字段，用来标记组件是否准备好触发事件：

type
  TMyDescendentTreeView = class(TTreeView)
  private
    fOnSelChange: TNotifyEvent; // 按你实际的事件类型调整
    FIsReady: Boolean; // 新增的初始化完成标志
    // ... 其他已有字段
  protected
    procedure Loaded; override;
    procedure Change(Node: TTreeNode); override;
    // ... 其他已有方法
  end;

2. 重写Loaded方法，在组件初始化完成后设置标志，还可以手动触发一次事件（如果初始化时已经有选中节点）：

procedure TMyDescendentTreeView.Loaded;
begin
  inherited;
  FIsReady := True;
  // 如果初始化时已经有选中节点，手动触发一次事件，确保FormCreate后能收到
  if Assigned(fOnSelChange) and Assigned(Selected) then
    fOnSelChange(Self, TXYZ(Selected).Data, TXYZ(Selected));
end;

3. 修改你的Change方法，增加对FIsReady的检查：

procedure TMyDescendentTreeView.Change(Node: TTreeNode);
begin
  inherited;
  // 只有当组件完全初始化完成后，才触发自定义事件
  if HandleAllocated and Assigned(fOnSelChange) and FIsReady and
     not (csReading in ComponentState) and not (csLoading in ComponentState) then
    fOnSelChange(Self, TXYZ(Node).Data, TXYZ(Node));
end;

这个方案的优势是逻辑简单可靠，完全遵循Delphi组件的生命周期设计，不需要额外的消息处理。

方案二：用PostMessage延迟触发事件 #

如果你的场景中，初始化过程中会多次触发选择变化，不想在Loaded里手动触发，或者需要更灵活的延迟时机，可以用消息队列来延迟事件触发。

具体步骤： #

1. 定义一个自定义消息，在组件类的接口部分添加：

const
  WM_DEFERRED_SEL_CHANGE = WM_USER + 100; // 选一个未被占用的WM_USER值

2. 添加私有字段保存需要延迟处理的节点：

private
  FDeferredNode: TTreeNode;

3. 修改Change方法，当组件未准备好时，发送延迟消息：

procedure TMyDescendentTreeView.Change(Node: TTreeNode);
begin
  inherited;
  if HandleAllocated and Assigned(fOnSelChange) then
  begin
    if FIsReady and not (csReading in ComponentState) and not (csLoading in ComponentState) then
      fOnSelChange(Self, TXYZ(Node).Data, TXYZ(Node))
    else if Node <> nil then
    begin
      FDeferredNode := Node;
      PostMessage(Handle, WM_DEFERRED_SEL_CHANGE, 0, 0);
    end;
  end;
end;

4. 添加消息处理方法，在组件准备好后触发事件：

procedure TMyDescendentTreeView.WMDeferredSelChange(var Msg: TMessage);
begin
  if FIsReady and Assigned(fOnSelChange) and Assigned(FDeferredNode) then
  begin
    fOnSelChange(Self, TXYZ(FDeferredNode).Data, TXYZ(FDeferredNode));
    FDeferredNode := nil;
  end;
end;

5. 在组件类的protected部分添加消息映射：

protected
  procedure WMDeferredSelChange(var Msg: TMessage); message WM_DEFERRED_SEL_CHANGE;

这个方案的好处是利用Windows消息队列的特性，延迟到窗体消息循环正常运行后再处理事件，不会阻塞初始化流程。

总结 #

优先选方案一，因为它更简洁，完全符合Delphi组件的设计模式，不容易出问题。方案二适合特殊场景下的灵活需求。

内容的提问来源于stack exchange，提问作者Zax