So sollte es gehen:
Delphi-Quellcode:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Listbox2.TopIndex := listbox1.TopIndex;
Listbox2.ItemIndex := listbox1.ItemIndex;
end;
procedure TForm1.ListBox2Click(Sender: TObject);
begin
Listbox1.TopIndex := listbox2.TopIndex;
Listbox1.ItemIndex := listbox2.ItemIndex;
end;
Scrollst du eine der beiden Listboxen, geht die andere Listbox an die selbe Position.