Как динамически прокручивать до верхней части списка

Question

У меня есть приложение delphi iOS через Delphi xe5. на Form1, у меня есть кнопка, которая генерирует результаты для Listbox в form2, а затем показывает form2 после загрузки элементов для этого поля. Моя проблема в том, что когда я возвращаюсь к form1 и снова загружаю результаты: на этот раз, когда появляется Form2, дисплей списка находится посередине экрана. Значение, вместо отображения результатов, начинающихся сверху, результаты отображаются в середине вниз по всему списку содержимого.

Как программно иметь окно списка, прокручиваемое вверху результатов? Спасибо

Answer 1

Просто установите ItemIndex в ListBox, чтобы быть равна нулю:

Listbox1.ItemIndex := 0 

Answer 2

Я обнаружил, что установка ItemIndex: = 0 работал только если пользователь нажал на элемент ListBox во время просмотра списка. Вместо этого я использовал этот код и он работает каждый раз:

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

Свойство VScrollBar защищен, но этот метод предоставляет свойство и позволяет значению быть установлен на ноль.