delphi - 显示 TTreeViewItem 的 Expander 按钮

Question

我有一个 FireMonkey 应用程序，它显示 TTreeView 中的项目列表。一些项目代表叶对象，其他代表容器。我的想法不是一次预加载整个树。我只想在用户单击特定容器项后将子项添加到容器中。

为此，我需要向用户显示相应的项目是一个容器：

有没有办法在不使用样式、RTTI 等添加任何子项的情况下显示特定 TTreeViewItem 的扩展器？

我正在使用德尔福 XE7。

Answer 1

在每个未扩展的节点中使用“虚拟”节点有一个常见的技巧。每个具有项目的节点都将只有一个空子节点。当用户展开该节点时，检查此虚拟节点。如果有，删除它，然后填写真实的项目。我不确定 Firemonkey 和 VCL 中的树视图有多相似，但这个概念应该是一样的。