Listview scrollen iOs

[Mavarik]

Ich hab das so gelößt:

Delphi-Quellcode:

procedure TGenKBII.ViewPortChange(Sender: TObject;const OldViewportPosition, NewViewportPosition: TPointF;const ContentSizeChanged: Boolean);
begin
  if not(FlipScroll) then
    exit;

  if MDown
    then begin
           if NewViewPortPosition.Y > OldViewPortPosition.Y
            then Runter := true
            else Runter := false;
           DoPage := false;
         end
    else begin
           if (NewViewPortPosition.Y < OldViewPortPosition.Y) and runter and not(DoPage)
             then begin
                    if Seiten.ItemIndex < Seiten.Count then
                      begin
                        Seiten.ItemIndex := Seiten.ItemIndex + 1;
                        DoPage := true;
                      end;
                  end
             else if (NewViewPortPosition.Y > OldViewPortPosition.Y) and not(runter) and not(DoPage) then
                    if Seiten.ItemIndex > 0 then
                      begin
                        Seiten.ItemIndex := Seiten.ItemIndex - 1;
                        DoPage := true;
                      end;
         end;
end;

Mavarik