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

Question

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

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

Answer 1

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

Listbox1.ItemIndex := 0

Answer 2

我发现设置 ItemIndex := 0 仅在用户在查看列表时单击列表框项时才有效。相反，我使用了这段代码，它每次都在工作：

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

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