Zitat von
Chegga:
Delphi-Quellcode:
case ListBox1.ItemIndex of
0: ListBox2.ItemIndex := 0;
1: ListBox2.ItemIndex := 1;
2: ListBox2.ItemIndex := 2;
// . . . .
Wie wäre es mit
Listbox2.ItemIndex:=Listbox1.ItemIndex
?
ItemIndex ist aber der markierte Eintrag, hier müsste man TopIndex verwenden.
Listbox2.TopIndex:=Listbox1.TopIndex
Ich habe aber leider kein geeignetes Event gefunden, versuch es mal mit einem Timer oder vielleicht Messages.