如何在Delphi中同步两个ListView？

Question

我正在使用Delphi XE8处理Android应用程序，我需要同步两个列表视图，这样当滚动一个时，另一个滚动同步。反之亦然。这两个列表的项目数相同。

我该怎么做？

Answer 1

procedure TForm1.ListView1ScrollViewChange(Sender: TObject);
begin
  Listview2.ScrollViewPos := Listview1.ScrollViewPos;
end;