delphi – 如何查找TScrollBox的实际大小(“逻辑区域”)

我需要找到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);