如何在运行时向 FireMonkey 的 TreeView 添加节点

我在在线文档或 Delphi XE2 附带的演示中找不到任何示例，用于将节点添加到FMX.TreeView.TTreeView http://docwiki.embarcadero.com/Libraries/XE2/en/FMX.TreeView.TTreeView运行时控制。那么，如何在运行时添加、删除和遍历 FireMonkey TreeView 的节点呢？

我想我们现在都在学习......

但据我所知，TTreeView 使用的原则是任何控件都可以成为另一个控件的父控件。

您需要做的就是设置Parent使项目显示为子项目的属性。

var
  Item1 : TTreeViewItem;
  Item2 : TTreeViewItem;
begin
  Item1 := TTreeViewItem.Create(Self);
  Item1.Text := 'My First Node';
  Item1.Parent := TreeView1;

  Item2 := TTreeViewItem.Create(Self);
  Item2.Text := 'My Child Node';
  Item2.Parent := Item1;
end;

因此，您可以做以前不可能做的事情，例如在 TreeView 中放置任何控件。例如，此代码将向 Item2 使用的区域添加一个按钮，并且在 Item2 可见之前该按钮不可见。

  Button := TButton.Create(self);
  Button.Text := 'A Button';
  Button.Position.X := 100;
  Button.Parent := Item2;