delphi treeview 모든 노드에 정보 추가

Question

Treeview를 채울 때마다 노드에 정보를 추가하고 싶습니다. 예를 들어, ChildNode를 만들 때 해당 자식을 해당 정도와 연결하고자합니다. 어쩌면이 속성 데이터가 만들어졌지만 처리 방법을 모르겠습니다.

procedure TForm1.TreeView1Addition(Sender: TObject; Node: TTreeNode); 
begin 
    Caption := 'Added ' + Node.Text + ', child count: ' +IntToStr(Node.Count); 
    if Node.Parent <> Nil then 
    Node.Text := Node.Text + ', child of ' + Node.Parent.Text; 

end; 

업데이트 그것은 TTreeView는 정말 당신이 수행 할 수 있습니다 무엇을위한부터 시작하는 바로 이곳 아니라고 의견에서 보인다

Answer 1

당신은 VCL의 TTreeView 구성 요소를 사용하는 가정하고 있지 FireMonkey의 TTreeView 구성 요소, 또는 다른 제 3 자 트리보기, 이 상황을 처리하는 가장 좋은 방법은 VCL의 TTreeNode 클래스에서 새 클래스를 파생시키고 원하는 값을 유지하기 위해 사용자 정의 필드를 추가 한 다음 TTreeView.OnCreateNodeClass 이벤트를 사용하여,클래스의 인스턴스를 생성 : 액세스 할 수 TMyTreeNode에 그런

type 
    TMyTreeNode = class(TTreeNode) 
    public 
    Toto: Real; 
    end; 

procedure TMyForm.TreeView1CreateNodeClass(Sender: TCustomTreeView; var NodeClass: TTreeNodeClass); 
begin 
    NodeClass := TMyTreeNode; 
end; 

, 당신은 새로운 노드를 추가하거나 기존 노드의 사용자 정의 값을 retreive해야하는 시간이, 당신은 단순히 입력 캐스팅 할 수있는 TTreeNode 포인터를 당신의 맞춤 입력란 :

Node := TreeView1.Items.Add(nil, '...'); 
TMyTreeNode(Node).Toto := ...; 

Node := TreeView1.Items.AddChild(Node, '...'); 
TMyTreeNode(Node).Toto := ...; 

... 

Value := TMyTreeNode(TreeView1.Items.Item[index]).Toto; 

Answer 2

이 작업을 수행하기 위해 TTreeView는의 OnAddition 이벤트를 사용할 수 있습니다 treenode의 속성에 추가하는 조건. 요컨대, TTreeView는 Windows의 공용 컨트롤 중 하나를 둘러싼 아주 중요한 래퍼입니다. 대신 TVirtualStringTree를 사용하는 경우

당신은 훨씬 더 제어 할 것 - 그것은이 라이브러리의 구성 요소 중 하나입니다 : 트리 노드의 데이터가 완전히 사용자 정의이기 때문에 https://github.com/Virtual-TreeView /가상 - 트 리뷰,

. 여기

Answer 3

그것입니다

type 
PMyrec = ^TMyrec; 
TMyrec = record 
toto: double; 
end; 

...

procedure TForm1.addnodewithdata(Sender: TObject); 
    var 
    NewNode : TTreeNode; 
    Myrec:double; 
    MyrecPtr: PMyrec; 
    begin 
     new(MyrecPtr); 
     MyrecPtr^.toto:=1000.; 
     NewNode := treeview1.Items.AddChildObject(Node, 'name',MyrecPtr); 
    end; 

    procedure TForm1.readdataofselectenode(Sender: TObject); 
    var 
    CNode : TTreeNode; 
    begin 
    Cnode:=treeview1.Items[strtoint(edit1.Text)]; 
    if (cnode.Data <> nil) then   
    showmessage(floattostr(PMyrec(cnode.Data)^.toto)); 
    end;