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

Question

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

Answer 1

我认为我们现在都在学习......

但据我所知，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;