无法在Android设备Delphi XE7上滚动ListView

Question

Can't scroll Listview in Delphi Xe7 on Android device. Some of my listviews can scroll, but not all of them. They all work on iOS.

Here is my code for a problem ListView

if AResult=true then
      begin
        AccessList.BeginUpdate;
          try
          XMLDocument.LoadFromXML(XMLData);
          XMLNode:=XMLDocument.DocumentElement.ChildNodes['Record'];
          while XMLNode<>nil do
          begin
            LItem:=AccessList.Items.Add;
            LItem.Text:=XMLNode.ChildNodes['NAME'].Text;
            LItem.Detail:=XMLNode.ChildNodes['US1_LOGIN'].Text;
            if LItem.Detail='' then
            begin
              LItem.Detail:='Mobile Access not setup';
              LItem.Objects.DetailObject.TextColor:=TAlphaColors.Crimson;
              LItem.Objects.DetailObject.Font.Size:=9.5;
            end;
            LItem.Tag:=StrToInt(XMLNode.ChildNodes['ID_Nr'].Text);
            if XMLNode.ChildNodes['US1_DELETED'].Text='0' then
              LItem.Objects.AccessoryObject.Visible:=true
            else
              LItem.Objects.AccessoryObject.Visible:=false;

            XMLNode:=XMLNode.NextSibling;
          end;
        finally
          AccessList.EndUpdate;
          toggleBusy(false);
        end;

      end;

UPDATE After messing around and recompiling a few times I've noticed two things:

1) This only happens to Listviews on which the style for the items are set to 'ImageListItemBottomDetail'

2) This issue is not consistent... For example, I have a tab control with two tabs which contain a listview in each tab. Identical Listviews, all except for the name. First time I ran the app, neither would scroll, second time I ran the app ( just closed app and restarted, no changes ) the first Listview scrolled but not the listview on the second tab. restarted app again, this time they both do not work again.

Delphi bug? Issue not apparent on iOS

Answer 1

not sure if this will fix your exact problem in Delphi XE-7 but in my case [delphi-xe10.2.3 Tokyo] took me a while to figure i forgot to [ end list view update] ^^' Form1.ListView1.EndUpdate; <--

        Form1.ListView1.BeginUpdate;
       try
         begin
           LVI:= Form1.ListView1.items.add;
           LVI.Text :=  sCH.Strings[1];    
         end;
        except
       end;
         Form1.ListView1.EndUpdate;  // this part is important scroll will not work without it .. in my case.