TreeView Frage

[Sharky]

Hai Tobiax,

eigentlich ist es ganz einfach. Du musst beim anlegen eines Nodes angeben wer sein Parent ist. Wenn es ein neuer Root-Eintrag sein soll dann ist der Parent einfach nil.

Dieser Code fügt entweder beim markierten Node einen neuen Untereintrag ein oder einen neuen Root-Eintrag:

Delphi-Quellcode:

// Neuer Eintrag unter markierten Node
procedure TDemo_Form.btn_AddToNodeClick(Sender: TObject);
var
  CurrentNode: TTreeNode;
  NewNode: TTreeNode;
begin
  CurrentNode := TreeView1.Selected;
  NewNode := TreeView1.Items.AddChild(CurrentNode, Edit1.Text);
end;

// Neuer Rooteintrag
procedure TDemo_Form.btn_AddToRootClick(Sender: TObject);
var
  NewNode: TTreeNode;
begin
  NewNode := TreeView1.Items.Add(NIL, Edit1.Text);
end;