Мой TVertScrollBox не хочет прокручивать на Android

Question

Я использую TVertScrollBox в приложении Delphi FireMonkey, которое должно работать на Android, iOS и Win32. Мое приложение отлично работает на Win32, то есть, когда поле больше доступной области, я получаю полосу прокрутки и могу ее прокручивать.

Тем не менее, на Android, окно просто показывает столько элементов, сколько может, но отказывается прокручивать. Ожидаемое поведение заключается в том, что я могу перетащить точку внутри рамки и заставить ее прокручиваться.

Вот соответствующий код:

with TVertScrollBox.Create( Self ) do
begin
  Parent := Self;
  Align := TAlignLayout.alClient;

  // AddObject several times here...      

  UpdateStyle();

  Visible := True;
end;

Answer 1

Вы должны убедиться, что Компоненты / Объекты, которые вы помещаете в VertScrollbox, выше / выше, чем VertScrollBox.

Если компонент внутри VertScrollBox меньше или короче, VertScrollBox не будет иметь никакого эффекта

с TVertScrollBox.Create( Self) действительно начинаются Parent:= Self; Align:= TAlignLayout.alClient;

// AddObject несколько раз здесь...
// попробуйте установить yourobject.Height в TVertScrollBox.Height*2 // выровнять ваш объект по alTop

UpdateStyle ();

Видимый:= Истина; конец;