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

がから新しいクラスを派生：

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;