Treeview Node hinzufügen ???

[Bernd29bln]

Hallo, :hi:

Ich möchte mit einem Button eine Haupt node erstellen, wen ich eine Haupt node selektiere möchte ich eine subnode erstellen .

Mein Code , wo ist der Fehler ? :coder2:

Delphi-Quellcode:

procedure TForm3.Hinzufugen1Click(Sender: TObject);  
var i : integer;  
    LNode: TTreeNode;  
begin  
  for i := 0 to KatList.Items.Count-1 do  
   if KatList.Items [i].Selected then  
    begin  
     KatList.Items.AddChild(LNode,(Label1.Caption));  
     end else  
     LNode := KatList.Items.Add(NIL,(label1.Caption));  
end;

MFG Bernd

[xaromz]

Hallo,

• Du musst natürlich den Knoten angeben, unter dem Du einen neuen anhängen willst. In Deinem Code ist LNode nicht initialisiert. Das meldet aber der Compiler auch.
• Außerdem kannst Du Dir die Schleife sparen (TTreeNode.Selected ist entweder der selektierte Knoten oder nil).
• Benutze AddChild

So ist's besser:

Delphi-Quellcode:

procedure TForm3.Hinzufugen1Click(Sender: TObject);  
var
  LNode: TTreeNode;  
begin  
  LNode := KatList.Items.AddChild(KatList.Selected, label1.Caption);
end;

Gruß
xaromz