如何在某个地方将节点添加到 FireMonkey TTreeView？

Question

我不熟悉在 Delphi XE7 中使用 FireMonkey 表单和组件。我想在运行时添加一个位于树视图中某个节点之后的节点。例如，如果我有图中的树，我想在TreeViewItem1 中添加一个节点TreeViewItem7 作为子节点；我该怎么做那个运行时？

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;