检查 TScrollBox 滚动条是否实际可见答案

【问题标题】：Check is TScrollBox scrollbars are actually visible检查 TScrollBox 滚动条是否实际可见
【发布时间】：2015-12-15 04:21:31
【问题描述】：

我有一个带有 TScrollBox (Align := alClient) 和一些放在 TScrollBox 上的控件的简单大小的表单。如果用户改变表单大小，TScrollBox 显示和隐藏 HorzScrollBar 和 VertScrollBar（取决于实际客户端表单大小）。

如何在运行时检查 - HorzScrollBar 或 VertScrollBar 现在是否可见？

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

【问题讨论】：

【解决方案1】：

使用TControlScrollBar.IsScrollBarVisible 进行测试。

调用 IsScrollBarVisible 来判断滚动条是否可见。如果 Visible 属性为 true，并且关联的滚动窗口控件包含位于边缘边缘像素内的子控件，则 IsScrollBarVisible 返回 true。

【讨论】：