TabControl 导航按钮/确定选项卡是否可见

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 的外观

第二种方式更糟糕，因为它是“狗钉子”又名“克鲁克解决方案”

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