将 CollectionItem 的属性添加到后代组件

【问题标题】：Adding properties to a CollectionItem to a descendant component将 CollectionItem 的属性添加到后代组件
【发布时间】：2016-11-12 18:08:15
【问题描述】：

我想从TVirtualStringTree 创建一个后代组件，并向Columns 集合添加更多属性。

TVirtualStringTree的实际结构是：

+ Header (TVTHeader)
|+ Columns (TVirtualTreeColumns)
 |+ CollectionItem (TVirtualTreeColumn)
  |- Text
  |- Width
  |+ Options
  |- CheckBox
  |- ... Here under [CollectionItem] I would like to add some more properties

请对此主题给予一些支持。谢谢！

【问题讨论】：

标签： delphi components virtualtreeview tvirtualstringtree

【解决方案1】：

从TVirtualTreeColumn派生一个新类：

type
  TMyTreeColumn = class(TVirtualTreeColumn)
    // add your desired properties as needed...
  end;

然后从TVirtualStringTree派生一个新类并覆盖它的虚拟GetColumnClass()方法：

type
  TMyStringTree = class(TVirtualStringTree)
  protected
    function GetColumnClass: TVirtualTreeColumnClass; override;
  end;

function TMyStringTree.GetColumnClass: TVirtualTreeColumnClass;
begin
  Result := TMyTreeColumn;
end;

【讨论】：