Ajout de TTreeNode à la racineRésolu

Question

Comment faire pour ajouter un TTreeNode &#224; la base d'un TTreeView?
Je pr&#233;cise: pour ajouter un noeud au dessus de tous les autres, m&#234;mes de ceux qui &#233;taient &#224; la base (level=0).

WhiteHippo · Accepted Answer

Bonjour,

treeview1.Items.AddFirst(  nil,  'Au dessus des autres'  ) ;

Est ce que cela correspond &#224; ta demande ?

Cordialement.

Niki2001 · Answer

En fait, non. Je me suis mal exprim&#233;, je voulais dire un niveau au dessus des autres.

WhiteHippo · Answer

var 
  index : integer ;

  treeview1.Items.AddFirst( nil,  'Racine'  ) ;
  for index:=1 to treeview1.items.count-1 do
  begin
    treeview1.Items[index].MoveTo(treeview1.items.GetFirstNode,naAddChild );
  end ;

Est-ce mieux ainsi ?

Cordialement.

Niki2001 · Answer

Oui, une petite correction et c'est bon merci beaucoup!!
La correction pour ceux que &#231;a int&#233;resse, consiste &#224; pr&#233;server la hi&#233;rarchie en ne d&#233;pla&#231;ant que les neuds &#224; la racine:
var
  index : integer ;
begin
     treeview1.Items.AddFirst(nil, 'Racine');
     for index:=1 to treeview1.items.count-1 do
     begin
          if treeview1.Items[index].Parent= nil then
             treeview1.Items[index].MoveTo(treeview1.items.GetFirstNode, naAddChild);
     end;
end;

Ajout de TTreeNode à la racine

4 réponses

Votre réponse

Discussions similaires