Mehrere Listboxen synchronisieren

[nezumi7]

Guten Morgen,

ich habe auf Basis eines älteren Forenbeitrags ein Prog geschrieben, bei dem zwei Listboxen immer synchron sind. Ich müsste das irgendwie so ergänzen, dass das auch mit drei oder mehr Listboxen klappt (haben alle immer exakt dieselbe Anzahl von items). Leider komme ich nicht weiter. Kann mir bitte jemand einen Tipp geben?

Das ist der Code für zwei Listboxen:

Delphi-Quellcode:

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, StdCtrls;

type
  TMyListbox = class(TListbox)
  private
  Fref : TCustomListbox;
  procedure WMMouseWheel (var Message: TWMMouseWheel); message WM_Mousewheel;
  procedure WMHScroll(var Message: TWMHScroll);
  message WM_HScroll;
  procedure WMVScroll(var Message: TWMVScroll);
  message WM_VScroll;
  public
  constructor Create(AOwner: TComponent); override;
  published
  property Reference: TCustomListbox read FRef
  write FRef;
  end;

  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    LBox : TMyListbox;                   
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
Listbox1.Touch.InteractiveGestures := [];
LBox := TMyListbox.Create(self);
with LBox do begin
Parent := self;
visible := true;
top := 8;
Left := 248;
Width := 217;
Height := Listbox1.height;
Reference := Listbox1;
end;

for i := 0 to 1000 do begin
Listbox1.Items.Add(inttostr(i));
LBox.Items.Add(Inttostr(i));
end;

end;


constructor TMyListbox.Create(AOwner: TComponent);
begin
inherited;
FRef := nil;
end;

procedure TMyListbox.WMMouseWheel(var Message: TWMMouseWheel);
begin
inherited;
If Assigned(FRef) then FRef.TopIndex := Topindex;
end;

procedure TMyListbox.WMHScroll(var Message: TWMScroll);
begin
inherited;
end;

procedure TMyListbox.WMVScroll(var Message: TWMScroll);
begin
inherited;
if assigned(FRef) then FRef.TopIndex := Topindex;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
LBox.Free;
end;

end.