Mehrere Listboxen synchronisieren

[tomkupitz]

So:

Code:

if (Msg.Msg=WM_VSCROLL) then
  begin
    i:=GetScrollPos(ListBox1.Handle, SB_VERT);
    PostMessage(ListBox2.Handle, WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), i), 0);
    Application.ProcessMessages;

    ...
  end
  else
  if (Msg.Msg=WM_MOUSEWHEEL) then
  begin
    i:=GetScrollPos(ListBox1.Handle, SB_VERT);
    PostMessage(ListBox2.Handle, WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), i), 0);
    Application.ProcessMessages;

    ...
  end;

Entsprechend dann für ListBox2.