如何在某個地方添加節點到FireMonkey TTreeView？

Question

我是Delphi XE7中使用FireMonkey窗體和組件的新手。我想在運行時添加一個節點，位於樹視圖中的某個節點之後。例如，如果我在圖片中有樹，我想將一個節點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;