TabControl Navigation Buttons / Determine if Tab is Visible

  

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?

Comments are closed.