delphi - 如何将 Delphi TPageControl "tab index"转换为 "page index"？

Question

我正在使用 TPageControl，其中某些页面不可见。

这打破了 TabIndex 和 ActivePageIndex 属性的正常 1:1 映射。

在大多数地方，我可以使用 ActivePageIndex(或 ActivePage 本身)来获取当前页面，但我想要一个动态工具提示提示，它要求我确定哪个页面与特定选项卡索引关联。

如果我调用 pageControl.IndexOfTabAt(X, Y)，我会得到一个选项卡索引，但我无法直接将其用作 Pages[] 数组的索引，因为某些页面选项卡不可见。

我可以显式地遍历页面，忽略可见的页面，但感觉 VCL 中应该已经有一些东西可以为我做到这一点......？

Answer 1

我查看 TPageControl (ComCtrls.pas) 的源代码，有一个私有(private)方法:

function TPageControl.PageIndexFromTabIndex(TabIndex: Integer): Integer;

这就是你想要的。但你不能调用它(D2007)，所以(不幸的是)你必须复制代码。