Проверьте, что полосы прокрутки TScrollBox на самом деле видны

Question

У меня простая форма с TScrollBox (Align := alClient), а некоторые элементы управления размещены на TScrollBox. Если пользователь изменит размер формы, TScrollBox покажет и скроет HorzScrollBar и VertScrollBar (зависит от размера фактической клиентской формы).

Как проверить во время выполнения - видны ли HorzScrollBar или VertScrollBar прямо сейчас?

TControlScrollBar.Visible не является ответом, потому что он имеет только регулирующую функцию.

Answer 1

Используйте TControlScrollBar.IsScrollBarVisible, чтобы проверить это.

Вызов IsScrollBarVisible для определения видимости полосы прокрутки. IsScrollBarVisible возвращает true, если свойство Visible истинно, а связанный с ним прокручиваемый оконный элемент управления содержит дочерние элементы управления, которые лежат в пикселях Margin от края.