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

Question

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

的实际结构TVirtualStringTree是：

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

请有关此主题的一些支持。谢谢！

Answer 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;