Hinzufügen von Eigenschaften zu einem CollectionItem zu einer Nachkommenkomponente

Question

Ich möchte eine Nachkommenkomponente aus TVirtualStringTree erstellen und einige weitere Eigenschaften zu Columns Sammlung hinzufügen.

Die tatsächliche Struktur von TVirtualStringTree ist:

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

Bitte einige Unterstützung zu diesem Thema. Vielen Dank!

Answer 1

Leiten Sie eine neue Klasse von :

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

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