TabControl 导航按钮/确定 Tab 是否可见

Question

我正在尝试添加像 Notepad++ 那样的 tabcontrol 导航按钮。

我在 Delphi-XE8 中使用 Firemonkey。

我首先必须确定是否所有选项卡都可见。

所以这里是表格：

如果我调整它的大小，第三个标签就不见了：

我尝试过的无法检查选项卡是否可见的方法：

TabItem1.IsVisible

TabControl1.FindVisibleTab(2, TTabControl.TFindKind.Current)

TabControl1.FindVisibleTab(TTabControl.TFindKind.Last)

或者也许有人知道实现 tabcontrol 按钮的更好方法？

Answer 1

这不是很好的解决方案，仅根据我的经验

第一种方法将 "TTabControl.FullSize" 设置为 True，但这会改变 TabControl 的外观

第二种方式更糟，因为它是 "dog-nail" 又名 "cruke solution"

if TabControl1.Tabs[2].AbsoluteMatrix.m32 = 65535 then
  begin
    { TAB NOT VISIBLE }
  end
else
  begin
    { TAB VISIBLE }
  end;