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

Question

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

我想在 TScrollBox 内创建一些控件。其中之一(称为 TViewer)需要与 TScrollBox 本身一样高。问题是，在创建过程中，TScrollBox 向下滚动以显示最后创建的控件。因此，使用 Top=1 将不起作用，因为我的控件将具有 top=1，它不是逻辑区域的顶部。

<小时/>

德尔福7

Answer 1

1. 将一个组件(例如 TLabel)拖放到 TScrollBox 上。
2. 将组件的 Left 和 Top 属性设置为 0。
3. 将组件的 Visible 属性设置为 False。

现在你总是有起源。现在的“逻辑高度”是:

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