加载自定义组件时IDE报错：是Delphi Bug还是我的问题？

问题根源 #

当ShowPanel=False时，你在属性setter中直接销毁了FPanel，但DFM流加载过程中，VCL的组件流系统仍然尝试读取已被销毁的子组件相关数据，导致访问空指针触发AV错误。

解决方案 #

通过调整组件的DFM加载逻辑和属性存储行为，避免流系统访问不存在的子组件：

1. 延迟创建/销毁到DFM加载完成后 #

在属性setter中判断组件是否处于加载状态（csLoading），如果是则暂不处理，等到Loaded方法中再执行创建/销毁操作：

procedure TPanelTest.SetShowPanel(Value: Boolean);
begin
  if FShowPanel <> Value then
  begin
    FShowPanel := Value;
    // 加载DFM时不直接操作FPanel，避免流系统访问无效指针
    if (csLoading in ComponentState) then Exit;
    if Value then
      CreatePanel
    else
      FreeAndNil(FPanel);
  end;
end;

procedure TPanelTest.Loaded;
begin
  inherited;
  // DFM加载完成后，根据ShowPanel状态调整FPanel
  if FShowPanel then
  begin
    if not Assigned(FPanel) then
      CreatePanel;
  end
  else
    FreeAndNil(FPanel);
end;

2. 控制DFM中是否存储子组件数据 #

重写DefineProperties方法，仅当ShowPanel=True时，才将FPanel的属性写入DFM，避免加载时流系统读取不存在的子组件信息：

procedure TPanelTest.DefineProperties(Filer: TFiler);
begin
  inherited;
  // 仅在ShowPanel为True且FPanel存在时，才存储其属性
  Filer.DefineProperty('FPanel', ReadPanelData, WritePanelData, Assigned(FPanel) and FShowPanel);
end;

// 读取FPanel的DFM数据
procedure TPanelTest.ReadPanelData(Reader: TReader);
begin
  if not Assigned(FPanel) then
    CreatePanel;
  Reader.ReadComponent(FPanel);
end;

// 写入FPanel的DFM数据
procedure TPanelTest.WritePanelData(Writer: TWriter);
begin
  if Assigned(FPanel) then
    Writer.WriteComponent(FPanel);
end;

3. 完善组件构造与销毁逻辑 #

确保组件创建时默认初始化FPanel，销毁时正确释放：

constructor TPanelTest.Create(AOwner: TComponent);
begin
  inherited;
  FShowPanel := True;
  CreatePanel;
end;

destructor TPanelTest.Destroy;
begin
  FreeAndNil(FPanel);
  inherited;
end;

procedure TPanelTest.CreatePanel;
begin
  FPanel := TPanel.Create(Self);
  FPanel.Parent := Self;
  // 设置FPanel的默认属性（根据你的需求调整）
  FPanel.Align := alClient;
  FPanel.Caption := 'Dynamic Sub Panel';
end;

关键注意事项 #

• 始终避免在组件处于csLoading状态时销毁子组件，因为此时VCL流系统正在处理DFM数据，销毁会导致无效内存访问。
• 通过DefineProperties精确控制DFM的存储内容，确保只有当子组件存在且需要保留时，才写入相关数据。

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