Les Treeview... incompréhensibles !

**Douine** · 19/05/2006, 16h14

Bonjour,

je cherche à créer une arborescence.
Seulement je n'arrive rien à faire, alors je ne sais si c'est que je suis vraiment pas douée (

) ou si c'est que je m'y prend très mal (j'ose espérer que c'est la deuxième solution !!)

J'ai créé par l'interface un TTreeView, et je souahite créer par programme des noeuds.
Mais comment qu'on fait ??

Merci d'avance pour vos réponses qui ne tardent jamais !
Camille

**Lung** · 19/05/2006, 17h29

Il faut créer un TTreeNode (regarde l'aide pour voir ses propriétés), et l'ajouter dans ton TreeView.

**ALWEBER** · 19/05/2006, 17h58

Tu peux faire queque chose comme celà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.Button1Click(Sender: TObject);
var
  N1,N2 : TTreeNode ;
begin
  TreeView1.Items.Clear ;
  N1 := TreeView1.Items.AddChild(Nil,'html');
  N2 := TreeView1.Items.AddChild(N1,'head');
  TreeView1.Items.AddChild(N2,'A11');
  TreeView1.Items.AddChild(N2,'A12');
  N2 := TreeView1.Items.AddChild(N1,'body');
  TreeView1.Items.AddChild(N2,'B11');
  TreeView1.Items.AddChild(N2,'B12');
  TreeView1.FullExpand ;
end;