Listboxen "verschmelzen" lassen

[marabu]

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

[PierreB]

Zitat von barf00s:

gnarf ... mit indexof bekommst das jeweilige item aus der liste, multiplizierst das mit der höhe des items und scrollst dann dahin

Nur leider habe ich keinen Einfluss auf den Inhalt des Items und ich weiß auch nicht den Inhalt, da er immer variabel ist.

@Chakotay: Danke ich probier nochmal.

[PierreB]

Zitat von marabu:

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

Moin marabu,

vielen Dank es geht so. Bisschen einfacher als die andere Methode. Thx.