Stimmt das hast du recht.
Ich habs jetzt so versucht, klappt aber leider net:
Delphi-Quellcode:
procedure TForm1.ListBox1Click(Sender: TObject);
var
i, a : integer;
begin
i := listbox1.ItemIndex;
a := i * listbox1.ItemHeight;
Listbox2.ScrollBy(0, a);
Listbox2.ItemHeight := i;
listbox3.itemindex := i;
end;
