Treeview Node einfügen

[Hansa]

Hi,

ich muß mir den Treeview doch jetzt genauer ansehen. Vorerst will ich nur folgendes erreichen : zu jedem der 10 Einträge sollen 3 Untereinträge erscheinen :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,j : integer;
begin
  for i := 1 to 10 do begin
    TreeView1.Items.Add(NIL,IntToStr (i));
    for j := 1 to 3 do
      TreeView1.Items.AddChild (NIL,IntToStr (j));
  end;
end;

Der Effekt davon ist nun der, daß ich unter jedem Eintrag noch drei Einträge habe. Zu welchem Haupteintrag die gehören ist nicht ersichtlich. Was ist da falsch ?

[alcaeus]

Hallo Hansa,

bei AddChild musst du den ParentNode als ersten Parameter angeben. Wird nil angegeben, so wird der eingefuegte Knoten ein RootNode.

Greetz
alcaeus

[SirThornberry]

das ganze muss wie folgt abgeändert werden

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i,j : integer; 
    LNode: TTreeNode;
begin 
  for i := 1 to 10 do
  begin 
    LNode := TreeView1.Items.Add(NIL,IntToStr (i)); 
    for j := 1 to 3 do 
      TreeView1.Items.AddChild(LNode, IntToStr(j)); 
  end; 
end;

[Hansa]

Thx, das wars. Dann mache ich mal weiter.