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:


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


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

Comments are closed.