如何在Tlistbox Delphi xe5中动态滚动

【问题标题】：How to dynamically scroll in Tlistbox Delphi xe5如何在Tlistbox Delphi xe5中动态滚动
【发布时间】：2013-12-13 20:38:46
【问题描述】：

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

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

提前谢谢你。

【问题讨论】：

【解决方案1】：

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

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

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

【讨论】：

【解决方案2】：

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

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

【讨论】：