2 Listboxen syncronisieren

[felix96]

Hallo,
damit meine ich ,wenn man an listbox1 nach unten scrollt, dann soll listbox 2 mitscrollen.
Vielen dank schonmal für antworten

[pluto]

Es gibt einen relativ einfachen Weg: Du erstellt eine neue ListBox und leitest von TCustomListBox ab. Hier erstellt du dann z.b. eine Eigenschaft die du mit einer ListBox verbinden kannst.
Nun musst du noch die beiden Botschaften:
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
überschreiben. Hier musst du zunächst die Vorhandene Botschaft. Außerdem solltest du die Units: LMessages und Controls einbinden.

Ob das so geht, weiß ich nicht, ich habe es nicht getestet, es müsste aber. Du könntest natürlich auch in den Botschaften Events auslösen die du dann auffängst. Ist vielleicht etwas besser, wenn du mehr als zwei ListBoxen gleich halten möchtest.

Es müsste auch Möglich sein eine Botschaft zu senden, jedoch gibt es keine einfache Möglichkeit eine Botschaft aufzufangen ohne von eine vorhandenen Klasse abzuleiten.

[monta]

viel zu aufwendig.

Code: Alles auswählen

ListBox2.TopIndex:=ListBox1.TopIndex;

[theo]

viel zu aufwendig.

Code: Alles auswählen

ListBox2.TopIndex:=ListBox1.TopIndex;

Das ist schon richtig Monta, aber Pluto hat auch nicht ganz unrecht.
Die Frage ist doch, wann du diesen Code ausführen willst.
Und da wäre Pluto's WM_SCROLL schon das richtige, gibt's aber nicht gratis.

[pluto]

Und da wäre Pluto's WM_SCROLL schon das richtige, gibt's aber nicht gratis.

Meinst du damit den Aufwand ?

ListBox2.TopIndex:=ListBox1.TopIndex;

Das währe natürlich auch noch eine Möglichkeit. Eine Andere, die gerne unter Delphi genutzt wird bei solche Art von Fragen währe: Ich sende eine Botschaft an die zweite ListBox, die ich steuern möchte.
Die Frage währe halt nur wie ?

Wir können ja hier mal einige Möglichkeiten aufdecken und besprechen

[felix96]

Sorry, schon wieder falsche fragenstellung (mis***)
Ich meinte das nur die Scrallbaren syncronisirt werden.

[pluto]

Ja, so habe ich das auch verstanden. Mit meiner Idee von Oben müsste das gehen. Mit Montas Vorschlag könnte auch der ItemIndex verstellt werden, aber das weiß ich nicht sicher.

Edit: Du müsstet nur die Botschaft WMVScroll senden an die zweite ListBox.

[felix96]

procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
überschreiben. Hier musst du zunächst die Vorhandene Botschaft. Außerdem solltest du die Units: LMessages und Controls einbinden.

Es müsste auch Möglich sein eine Botschaft zu senden, jedoch gibt es keine einfache Möglichkeit eine Botschaft aufzufangen ohne von eine vorhandenen Klasse abzuleiten.

Das klingt aber irgendwie sehr - sehr kompliziert

[RSE]

An dieser Stelle mal ein Einwurf: Warum hat die ListBox kein Ereignis OnScroll? Das sollte man in die LCL einbauen hab ich bei irgend einer anderen Komponente schon mal gesehen, bilde ich mir ein. Dann wäre das alles viel einfacher.

[theo]

Das klingt aber irgendwie sehr - sehr kompliziert

Wenn man seltsame Wünsche hat, wird's oft kompliziert.

[felix96]

Kan man die Scrollbars der Listboxen nicht irgendwie wegmachen, (das es so aussieht wie ein Memo)
und diese durch eigene srollbars ersetzen

[RSE]

Das wär aber aufwendiger als die Scrollbars zu syncen

[felix96]

Und wie kann ich die Scrollbars

syncen

[RSE]

syncen = synchronisieren = das, was du vorhast

[felix96]

Ok, das weiß ich auch, ABER WIE MACH ICH DAS ?