TabControl Navigation Buttons / Determine if Tab is Visible

Question

I am trying to add tabcontrol navigation buttons like Notepad++ has.

I am using Firemonkey in Delphi-XE8.

I first must determine if all tabs are visible.

So here is the form:

And if i resize it the third tab is gone:

Things i tried that didn't work to check if a tab is visible:

TabItem1.IsVisible

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

TabControl1.FindVisibleTab(TTabControl.TFindKind.Last)

Or maybe someone knows a better way to implement tabcontrol buttons?

Answer 1

This is NOT good solution, based only on my experience

1st way set "TTabControl.FullSize" to True, but this will change how your TabControl looks

2nd way even worse, because it's "dog-nail" aka "cruke solution"

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