Delphi treeview ajouter des informations à tous les nœuds

Question

Je voudrais ajouter des informations aux nœuds chaque fois que je remplis un Treeview. Je veux dire par exemple, quand je crée un ChildNode je voudrais le lier avec son degré de kinhsip. Peut-être que les données de la propriété est faite pour cela, mais je ne sais pas comment le gérer.

Answer 1

En supposant que vous utilisez le composant de VCL TTreeView, et non le composant de FireMonkey TTreeView, ou une autre vue arborescente 3ème partie, le La meilleure façon de gérer cette situation est de dériver une nouvelle classe de la classe TTreeNode de la VCL et d'y ajouter un champ personnalisé pour contenir la valeur souhaitée, puis vous pouvez utiliser l'événement TTreeView.OnCreateNodeClass pour laisser TTreeView créer des instances de votre classe:

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

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

Ensuite, chaque fois que vous ajoutez un nouveau nœud, ou besoin pour récupérer la valeur personnalisée d'un nœud existant, vous pouvez simplement taper moulé un pointeur TTreeNode-TMyTreeNode pour accéder à votre champ personnalisé:

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

Vous pouvez utiliser OnAddition événement pour faire du TTreeView:

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; 

Mise à jour Il semble de vos commentaires que TTreeView est pas vraiment le bon endroit pour commencer à partir de ce que vous pouvez faire conditions d'ajout aux propriétés de treenode. Le point est, TTreeView est un wrapper tout à fait autour d'un des contrôles communs de Windows.

vous auriez beaucoup plus de contrôle si vous utilisez TVirtualStringTree à la place - il est l'un des composants de cette bibliothèque: https://github.com/Virtual-TreeView /Virtual-TreeView,

parce que les données de nœud d'arborescence est complètement défini par l'utilisateur.

Answer 3

ici est:

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;