ios - 如何在Tlistbox Delphi xe5中动态滚动

Question

TListbox.topIndex 在 Delphi xe5 中不明显。我如何执行类似的功能？我想让列表框滚动，以便所选项目位于列表框的顶部。

我找到了可以设置 ListBox.itemIndex 的其他示例，但它不会滚动，因此所选项目位于列表框的顶部。

先感谢您。

Answer 1

在 Windows 上，VCLTListBox有一个公共TopIndex属性，它在内部使用LB_SETTOPINDEX消息。

FireMonkey 中没有等效项TListBox。我看到的唯一选择是调用 ListBox 的ScrollTo()方法来手动滚动 ListBox，以便目标列表项出现在您想要的位置。

Answer 2

我使用了这个有效的代码：

var
  THackListBox = type TListBox;
begin
  THackListBox(ListBox1).VScrollBar.Value := 0;

VScrollBar 属性受保护，但此方法公开该属性并允许将值设置为零。