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

Question

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

我在Delphi-XE8中使用Firemonkey。

我首先要确定是否所有标签都可见。

所以这是表格：

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

我试过的东西没有用来检查标签是否可见：

TabItem1.IsVisible

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

TabControl1.FindVisibleTab(TTabControl.TFindKind.Last)

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

Answer 1

这不是一个好的解决方案，仅基于我的经验

第一路设置＆＃34; TTabControl.FullSize＆＃34;为True，但这会改变TabControl的外观

第二种方式更糟糕，因为它＆＃34; dog-nail＆＃34; aka＆＃34; cruke solution＆＃34;

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