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