Niki2001
Messages postés85Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention17 décembre 2005
-
28 févr. 2005 à 17:10
Niki2001
Messages postés85Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention17 décembre 2005
-
1 mars 2005 à 16:25
Comment faire pour ajouter un TTreeNode à la base d'un TTreeView?
Je précise: pour ajouter un noeud au dessus de tous les autres, mêmes de ceux qui étaient à la base (level=0).
WhiteHippo
Messages postés1154Date d'inscriptionsamedi 14 août 2004StatutMembreDernière intervention 5 avril 20123 28 févr. 2005 à 19:19
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 ;
Niki2001
Messages postés85Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention17 décembre 20051 1 mars 2005 à 16:25
Oui, une petite correction et c'est bon merci beaucoup!!
La correction pour ceux que ça intéresse, consiste à préserver la hiérarchie en ne déplaçant que les neuds à 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;