TListBox scrolled?

[Chegga]

Hi,

wenn ich es richtig verstanden habe,
meinst du vielleicht sowas:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  case ListBox1.ItemIndex of
   0: ListBox2.ItemIndex := 0;
   1: ListBox2.ItemIndex := 1;
   2: ListBox2.ItemIndex := 2;
//  .     .       .        .
//  .     .       .        .
//  .     .       .        .
  end;
end;

Oder?

MfG Marc