2 ListBoxen verkuppeln (Beim Scrollen)

[Nalincah]

Falls du es doch mit der Listbox machen willst und ich dich richtig verstanden hab:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender:TObject);
begin
  Listbox2.Itemindex := ListBox1.Itemindex;
end;

Oder andersrum

Delphi-Quellcode:

procedure TForm1.ListBox2Click(Sender:TObject);
begin
  Listbox1.Itemindex := ListBox2.Itemindex;
end;