Delphi. FireMonkey. TListBox. Видимо полоса прокрутки?

Question

Я хочу изменить размер моей формы по количеству элементов списка ListBox - увеличить высоту, пока отображается полоса прокрутки. Как узнать, видима ли полоса прокрутки или нет в TListbox? Итак, есть тонны информации для VCL (на основе Handle), но не для FMX. Ленивый метод:

ListBox1.Items.Count * Round(ListBox1.ItemByIndex(0).Height) 

Этот метод не работает должным образом, потому что форма границы и подпись могут быть разными на разных машинах.

Answer 1

Чтобы отрегулировать высоту или ширину формы в вмещать некоторый контент, вы должны использовать ClientWidth и ClientHeight свойства формы, скорее, Width и Height

ClientWidth и ClientHeight удержание измерения формы без границ, заголовка и области меню.

Answer 2

Если ширина клиента родительского элемента совпадает с шириной, то вертикальная полоса прокрутки не видна. Вы можете определить размер полосы прокрутки, исследуя стиль. Например:

if (VertScrollBox1.ClientWidth = VertScrollBox1.Width) then 
    VerticalScrollBarVisible := False; 
    VerticalScrollBarWidth := 0; 
else 
begin 
    VerticalScrollBarVisible := True; 
    VerticalScrollBarWidth := VertScrollBox1.StylesData['vscrollbar.width'].AsExtended; 
end;