建立了三个listview,怎么实现三个控件的滚动条同步滚动？

Question

我目前的方法是在listview1的滚动条事件中改变listview2和listview3的滚动条位置，但是不知道滚动条向上和向下的区别，代码运行结果在最开始和最后同步不了。
lprocedure TForm2.NewWndProc(var _msg: TMessage);
var
Scrollinfo1:TScrollinfo;
pos:integer;
begin
  FOldWndProc(_msg);
  with _msg do
  begin
    case Msg of
      WM_VSCROLL:
        begin
          Scrollinfo1.cbSize:=sizeof(Scrollinfo1);
          Scrollinfo1.fMask:=SIF_ALL;
          Getscrollinfo(listview1.Handle,SB_VERT,scrollinfo1);
          pos:=Scrollinfo1.nPos;
          if _msg.WParam>0 then
          begin
            sendmessage(listview2.Handle,WM_VSCROLL,SB_LINEUP,0);
            sendmessage(listview3.Handle,WM_VSCROLL,SB_LINEUP,0);
          end
          else
          begin
            sendmessage(listview2.Handle,WM_VSCROLL,SB_LINEDOWN,0);
            sendmessage(listview3.Handle,WM_VSCROLL,SB_LINEDOWN,0);
          end;
        end;
    end;
  end;
end;

Answer 1

可以用控件，把三个listview设为同样高度，然后调用同一个滚动条，控件可以用BusinessSkinForm