Hi Pierre,
wenn deine Boxen die gleiche Höhe haben, dann funktioniert das hier:
Delphi-Quellcode:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox2.TopIndex := ListBox1.TopIndex;
ListBox2.ItemIndex := ListBox1.ItemIndex;
end;
Grüße vom marabu