检查是TScrollBox滚动条实际上​​是可见的

Y.N*_*Y.N 5 delphi tscrollbox

我有一个简单的大小形式与TScrollBox(Align := alClient)和一些控件放在TScrollBox上.如果用户更改表单大小,TScrollBox将显示并隐藏HorzScrollBar和VertScrollBar(取决于实际的客户端表单大小).

如何在运行时检查 - HorzScrollBar或VertScrollBar现在可见吗?

TControlScrollBar.Visible 不是答案,因为它只有调节功能.

Dav*_*nan 11

使用TControlScrollBar.IsScrollBarVisible来测试这一点.

调用IsScrollBarVisible以确定滚动条是否可见.如果Visible属性为true,则IsScrollBarVisible返回true,并且关联的滚动窗口控件包含位于边缘的Margin像素内的子控件.