Как добавить узлы в FireMonkey TTreeView в определенное место?

Question

Я новичок в использовании форм и компонентов FireMonkey в Delphi XE7. Я хотел бы добавить узел во время выполнения, расположенную после определенного узла в древовидной структуре. Например, если у меня есть дерево на картинке, я хотел бы добавить узел TreeViewItem7 в качестве ребенка в TreeViewItem1; как я могу это сделать?

Answer 1

В первой, вы должны найти элемент источника, по myTreeView.ItemByText или ItemByIndex или ItemByGlobalIndex функций, Selected собственности и т.д ...

Затем создайте новый элемент и добавить его в пункт источника.

Например:

var 
    NewItem: TTreeViewItem; 
    SourceItem: TTreeViewItem; 
begin 
    SourceItem := tv1.ItemByText('TreeViewItem1'); 
    if Assigned(SourceItem) then 
    begin 
     NewItem := TTreeViewItem.Create(tv1); 
     NewItem.Text := 'TreeViewItem'+IntToStr(tv1.GlobalCount+1); 
     SourceItem.InsertObject(0, NewItem); 
    end; 
end;