Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Listboxen scrolltechnisch verknüpfen. (https://www.delphipraxis.net/156880-listboxen-scrolltechnisch-verknuepfen.html)

Schorschi5566 18. Dez 2010 15:28


Listboxen scrolltechnisch verknüpfen.
 
Hallo DP,

wie könnte man zwei Listboxen scrolltechnisch am einfachsten miteinander verknüpfen?

Also wenn die erste Listbox gescrollt wird, soll die andere mit scrollen und umgekehrt.

Vermutlich einfach TopIndex synchronisieren, oder?


Grüße,
Schorsch


P.S.: Sorry, hab's gefunden. ;)

mz23 19. Dez 2010 08:48

AW: Listboxen scrolltechnisch verknüpfen.
 
Hallo Schorschi,
ich hatte ein ähnliches Problem mit dem Zusatz,
daß trotz Focus auf das TListBox Objekt das MausRad
die ListBox nicht scrollen wollte.

Habe dann zwei Buttons reingesetzt, einen zum Rauf-
und den anderen zum RunterScrollen aller ListBoxen.

Zusätzlich empfiehlt es sich, auf einen Klick in die
ListBox diese Zeile auch in den anderen ListBoxen
zu markieren (ItemIndex).

Im OI unter Ereignissen kann man darauf reagieren
und entsprechende selbstgeschriebene Function
mit Events verknüpfen.

Vielleicht solltest du in Betracht ziehen, ein
anderes Objekt zu nehmen, das über Spalten verfügt,
die man mit einem HeaderBezeichner versehen kann.

MfG Manfred Zenns

PS: Sorry, daß ich dir keinen fertigen Quelltext
hier anbieten kann, aber wenn man's nicht in einer
IDE prüfen kann, was man rät, läßt man's besser:)

sx2008 19. Dez 2010 14:02

AW: Listboxen scrolltechnisch verknüpfen.
 
Zitat:

Zitat von mz23 (Beitrag 1069322)
Vielleicht solltest du in Betracht ziehen, ein
anderes Objekt zu nehmen, das über Spalten verfügt,
die man mit einem HeaderBezeichner versehen kann

Das wäre dann ein TListView mit ReportStyle = rsReport.

Also ich würde keinesfalls versuchen zwei Listboxen zu koppeln.
Das "riecht" doch schon (Code Smell) nach einer ganz falschen Lösung.


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:23 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz