是否可以？ TCollection 后代实现任意内容的 TPanel 容器的存储

Question

我是 Delphi 组件开发的新手，因此想知道是否可以实现我的任务。

我需要创建一个基于 TScrollBox 的可视组件（用户控件），它将代表一堆 TPanel，所有面板将在 TScrollBox 内对齐为“顶部”，并且可以具有不同的高度。它必须充当 TCollection（添加、删除、重新排序），并且必须允许用户在设计时将其他控件添加到这些面板中。

我已经为组件创建了这些类：

type
  TPanelsGrid = class;

  TPanelsGridItem = class(TCollectionItem)
  private
    FPanel: TPanel;
    procedure SetPanel(Value: TPanel);
    function GetGrid: TPanelsGrid;
  protected
    function GetDisplayName: string; override;
  public
    constructor Create(Collection: TCollection); override;
    destructor Destroy; override;
    procedure Assign(Source: TPersistent); override;
  published
    // This is my TPanel object that should be used at designtime
    // I thought "stored True" will serialize it automatically but I was wrong
    property Panel: TPanel read FPanel write SetPanel stored True; 
  end;

  TPanelsGridItems = class(TCollection)
  private
    FPanelsGrid: TPanelsGrid;
  protected
    function GetItem(Index: Integer): TPanelsGridItem;
    procedure SetItem(Index: Integer; Value: TPanelsGridItem);

    function GetOwner: TPersistent; override;
    procedure Update(Item: TCollectionItem); override;
  public
    property EditorsGrid: TPanelsGrid read FPanelsGrid;
    property Items[Index: Integer]: TPanelsGridItem
      read GetItem write SetItem; default;

    constructor Create(PanelsGrid: TPanelsGrid);
    function Add: TPanelsGridItem;
    procedure Delete(Index: Integer);
  end;

  TPanelsGrid = class(TScrollBox)
  private
    FItems: TPanelsGridItems;
    procedure SetItems(Value: TPanelsGridItems);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Items: TPanelsGridItems read FItems write SetItems;
  end;

该组件在设计时工作正常，我可以在堆栈中添加删除面板，当我在任何面板上放置某些控件（例如 TCheckbox）时，它显示为“由该面板拥有” ：例如，我无法将此复选框拖出面板。

但此复选框不存储在 DFM 文件中，也不显示在“结构”窗口中。

我想 TPanel 的内容一定有一些手动序列化-反序列化，但我不知道该怎么做。在互联网上找不到任何示例。如果这种实施完全可能的话，请给我一些指导。

添加：

这就是我的 DFM 文件片段在网格中添加 3 个面板后的样子：

  object PanelsGrid1 : TPanelsGrid 
    Left = 8
    Top = 8
    Width = 536
    Height = 382
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    Items = <
      item
      end
      item
      end
      item
      end>
  end

如您所见，所有项目都是空的，但我在项目 #3 中放置了一个复选框和单选按钮。

Answer 1

毕竟，我决定放弃使用 TCollection，因为在 DefineProperties 方法的测试过程中，我遇到了一致的 IDE 崩溃。我认为 TCollection 并不是为此类任务而设计的。

我在控件 ExtCtrls.TCustomCategoryPanelGroup 内的 Delphi 源代码中创建了一个适当的实现。它维护可以在设计时和运行时添加或删除的面板堆栈。我使用 TCustomCategoryPanelGroup 和 TCustomCategoryPanel 的源代码创建了自己的类，它按我想要的方式工作。

Answer 2

我想你可以看看 TMS Poly List 控件

TMS Advanced Poly List 组件
提供极其通用和
灵活的架构创建
几乎任何可能的项目列表
在用户界面中。这是看到的
通常但不限于新的
Office 2010 应用程序菜单。相反
对于大多数用户界面列表控件，
其中列表由以下项目组成
相同类型或项目的集合
同一类型，TMS Advanced Poly
列表组件可以保存多态
项目。所有物品只需下降
来自基类 TCustomItem 和
可以添加任何继承的项目。经颅磁刺激系统
高级 Poly List 组件来了
有一大组预建列表
项目，但可以自定义项目类别
通过降序添加
TCustomItem 基类或任何
已经提供的课程。有
显示为列表部分的项目类别
项目，具有 HTML 格式的文本项目，
带按钮的文本项目，带按钮的项目
展开/折叠行为，项目
图像等等。物品可以是
添加到多晶型列表中
设计时间，拥有丰富的设计时间
编辑器和运行时通过代码。

Answer 3

确保您的子面板有名称。您可以覆盖 TCollection.Notify，如果 Action 是 cnAdded，请确保面板有一个名称。