检查 TScrollBox 滚动条是否真的可见

Check is TScrollBox scrollbars are actually visible

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

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

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

使用TControlScrollBar.IsScrollBarVisible 来测试一下。

Call IsScrollBarVisible to determine whether the scroll bar is visible. IsScrollBarVisible returns true if the Visible property is true and the associated scrolling windowed control contains child controls that lie within Margin pixels from the edge.