delphi - 如何找到TScrollBox的实际大小("logical area")

我需要找到TScrollBox的整个大小(也称为“逻辑区域”)-与通过Width和Height属性(或ClientWidth ClientHeight)获得的可见区域相反。

我想在该TScrollBox中创建一些控件。其中之一(称为TViewer)必须与TScrollBox本身一样高。事实是，在创建过程中，TScrollBox向下滚动以显示上一个创建的控件。因此，使用Top = 1将不起作用，因为我的控件将具有top = 1，这不是逻辑区域的顶部。

德尔福7

最佳答案

在TScrollBox上放置一个组件，例如TLabel。

将组件的Left和Top属性设置为0。

将组件的Visible属性设置为False。

现在，您始终拥有起源。现在，“逻辑高度”为:

myScrollBox.Height + (myOriginControl.Top * -1);