如何动态滚动到列表框的顶部

Question

我有一个通过Delphi xe5的delphi iOS应用程序。在Form1上，我有一个按钮，可以在form2中为Listbox生成结果，然后在加载该框的项目后显示form2。我的问题是当我返回到form1并再次加载结果时：这次出现Form2时，列表框的显示位于屏幕中间。这意味着，不是从顶部开始显示结果，而是在整个内容列表的中间显示结果。

如何以编程方式将列表框滚动到结果的顶部？ 谢谢

Answer 1

只需将列表框的ItemIndex设置为零：

Listbox1.ItemIndex := 0

Answer 2

我发现只有当用户在查看列表时点击了列表框项目时，设置ItemIndex：= 0才有效。相反，我使用了这段代码并且每次都在运行：

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

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