如何在Tlistbox Delphi xe5中动态滚动

Question

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

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

提前谢谢你。

Answer 1

在Windows上，VCL TListBox具有公共TopIndex属性，该属性在内部使用LB_SETTOPINDEX消息。

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

Answer 2

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

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

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