TreeView

[Specialwork]

Hallo Silent

Versuch mal folgendes:

Delphi-Quellcode:

Memo1.Lines.BeginUpdate;
Memo1.Lines.Add(Node.Text);
Memo1.Lines.EndUpdate;

PS: Wenn Deine Frage sich auf mein Beispiel bezieht: Die Komponente auf der rechten Seite ist kein TMemo sondern eine TListView.

BSP: Hinzufügen von Items in eine Listview

Delphi-Quellcode:

procedure AddNewListViewItem(Caption: String);
var NewItem: TListItem;
begin
  ListView1.Items.BeginUpdate;
  NewItem:=ListView1.Items.Add;
  NewItem.Caption:='Bezeichnung';
  // {oder} NewItem.Caption:=Caption; 
  NewItem.ImageIndex:=1;
  ListView1.Items.BeginUpdate;
end;

Gruß, Tom