listboxen synchronisieren

[markus lemcke]

tag leute,

ich habe mehrere listboxen nebeneinander. wenn in den listboxen mehr drin steht als angezeigt
werden kann kommen scrollbalken. jetzt möchte ich, daß wenn ich an einer listbox mit dem scroll-
balken scrolle, die anderen in der selben richtung um den gleichen wert mitscrollen.

aber wie???

es soll eben so aussehen, daß die listboxen zusammengehören!!!!!

mfg

markus

[Andreas Kosch]

Hallo,

am einfachsten geht die Synchronisierung über die Zuweisung von <b>ItemIndex</b>:
<pre>
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox2.ItemIndex := ListBox1.ItemIndex;
end;
</pre>
Solange nur mit der Maus bzw. den Cursortasten die Liste durchscrollt wird, bleiben alle Listboxen synchron

[markus lemcke]

was geschieht wenn ich mit der scrollbar durchscrolle???

mfg

marku

[Andreas Kosch]

Hallo,

wenn auch das tatsächlich unterstützt werden soll, wird man die dahinterliegenden Windows-Botschaften abfangen müssen. Dazu gibt es mindestens 2 Alternativen: <br>
1. Neue Komponente als TListBox-Nachfolger <br>
2. Subclassing der TListBox-Instanzen<br>
Ein Beispiel für 2. ist in meinem Buch <b>Delphi Win32-Lösungen</b> unter 10.7.5 und 10.7.6 auf den Seiten 423..429 zu finden.

Allerdings würde ich darüber nachdenken, ob der tatsächliche Nutzen den Aufwand rechtfertigt