如何在某个地方向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;