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() 메소드를 오버라이드 (override) :

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

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