デルファイツリービューは、私がツリービューを移入ノード毎回に情報を追加したいすべてのノード

Question

に情報を追加します。 例えば、私がChildNodeを作成するときに、その子をそのkinhsipの度合いにリンクしたいとします。 おそらくプロパティデータがこのために作られていますが、私はそれをどのように処理するのか分かりません。

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のTTreeNodeクラスから新しいクラスを派生し、ご希望の値を保持するためにそれにカスタムフィールドを追加し、あなたはをできるようにTTreeView.OnCreateNodeClassイベントを使用することができますすることですがあなたのクラスのインスタンスを作成します。次に

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

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

を、新しいノードを追加したり、既存のノードのカスタム値を盗んする必要がある時には、単にあなたにアクセスするためのTMyTreeNodeから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の共通コントロールの1つを包括するラッパーです。ツリーノードのデータが完全にユーザ定義であるため、https://github.com/Virtual-TreeView /仮想ツリービュー、

： - あなたが代わりにTVirtualStringTreeを使用する場合

あなたがはるかに大きなコントロールを持つことになり、それがこのライブラリ内のコンポーネントの一つです。

Answer 3

ここにある：

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

...あなたは、FireMonkeyののTTreeViewコンポーネント、または他のいくつかのサードパーティ製のツリービューVCLのTTreeViewコンポーネントを使用して、されていないと仮定すると、

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;