Кнопки навигации TabControl/Определить, отображается ли вкладка

Question

Я пытаюсь добавить кнопки навигации tabcontrol, такие как Notepad ++.

Я использую Firemonkey в Delphi-XE8.

я сначала должен определить, все вкладки видны.

Так вот форма:

И если я изменить его размер вкладки третий ушел:

Вещи я пытался, которые не работали, чтобы проверить, можно увидеть вкладку:

TabItem1.IsVisible 

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

TabControl1.FindVisibleTab(TTabControl.TFindKind.Last) 

Или, может быть, кто-то знает лучший способ реализовать кнопки tabcontrol?

Answer 1

Это не хорошее решение, основываясь только на своем опыте

первый способ установить «TTabControl.FullSize» Верно, но это изменится, как ваш TabControl выглядит

2-й путь даже хуже, потому что это «собачий гвоздь», ака «решающий раствор»

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