德尔福。 Firemonkey。 TListBox中。滚动条可见吗？

Question

我希望通过ListBox项目数量调整表单高度 - 滚动条可见时增加高度。 怎么知道，滚动条是可见的还是在TListbox中？ 因此，VCL（基于Handle）有大量信息，但FMX没有。 懒惰的方法：

ListBox1.Items.Count * Round(ListBox1.ItemByIndex(0).Height)

此方法无法正常工作，因为不同机器上的表格边框和标题可能不同。

Answer 1

要调整表单的高度或宽度以容纳某些内容，您应该使用表单的ClientWidth和ClientHeight属性，而不是Width和Height

ClientWidth和ClientHeight保留表单的尺寸，没有边框，标题和菜单区域。

Answer 2

如果父控件的客户端宽度与其宽度相同，则垂直滚动条不可见。您可以通过检查样式来确定滚动条的大小。例如：

"data": { ... }