delphi - 如何在运行时将按钮放在 TTreeView 的选定项目旁边？

Question

我有一个 TreeView，其中包含项目、客户、运营商和区域等信息组。它们的子项是数据库中每个组的行。每当我双击一个项目时，它都会更改屏幕另一侧的表格，通过我刚刚在 TreeView 中选择的项目过滤表格结果。

由于这些 TreeViews 实际上是数据库表的项目，我想打开另一个窗口来编辑选定的项目，方法是单击将出现在项目旁边的按钮，就在 TreeView 之外，因此按钮不会覆盖文本该项目。

问题是，如何知道选定项在 TreeView 中的确切位置 ?

请考虑，这可能足以使垂直滚动条出现或不出现。我不能使用弹出菜单来做到这一点。

Answer 1

您可以使用项目的 DisplayRect 方法在客户端坐标中为项目文本的边界矩形传递“true”参数。将此矩形与使用“false”参数获得的矩形进行比较，您将知道是否有足够的空间在项目文本的右侧绘制一个按钮。