我的TVertScrollBox不想在Android上滚动

Question

我在Delphi FireMonkey应用程序中使用TVertScrollBox，需要在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中的组件/对象比Ver​​tScrollBox更高。

如果VertScrollBox中的组件更小或更短，则VertScrollBox不会产生任何影响

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

  // AddObject several times here...      
  // try setting yourobject.Height to TVertScrollBox.Height*2
  // align yourobject to alTop

  UpdateStyle();

  Visible := True;
end;