Scrollbox2 scrollen wenn Scrollbox1 gescrollt wird

[delphicoder123]

Hallo,
wie, ist es möglich Scrollbox2 zu scrollen, wenn Scrollbox1 gescrollt wird?
Wenn SB1 um 10px nach rechts gescrollt wird, dann soll auch SB2 um 10px nach rechts verschoben werden.

Vielen Dank

[peterbelow]

Zitat von delphicoder123:

Hallo,
wie, ist es möglich Scrollbox2 zu scrollen, wenn Scrollbox1 gescrollt wird?
Wenn SB1 um 10px nach rechts gescrollt wird, dann soll auch SB2 um 10px nach rechts verschoben werden.

Vielen Dank

Gehe nach CodeNewsFast und such mal mit den folgenden Abfragen:

unit near evscrollbox

und

unit near PBSyncListbox

Das sollte Kode für zwei einfache Komponenten finden, die ich vor vielen Jahren mal auf den alten Borland/Codegear Foren gepostet hatte. EvScrollbox zeigt, wie man einer TScrollbox onScroll-Events verpasst und PBSyncListbox wie man Controls (in diesem Fall TListboxen) synchron scrollen kann. Letzteres sollte sich einfach auf TScrollbox übertragen lassen.

[delphicoder123]

Ich habe Schwierigkeiten den Code zu verstehen.
Wäre so etwas auch mit Live Bindings möglich?

[peterbelow]

Zitat von delphicoder123:

Ich habe Schwierigkeiten den Code zu verstehen.
Wäre so etwas auch mit Live Bindings möglich?

Das hat absolute nichts mit Bindings zu tun, ob Live oder Dead .

Der Kode ist VCL, Windows only. Das Prinzip ist, die Windows-Message, die in einem Control den Scrollvorgang ausgelöst hat, auch an die "Partner"-Controls weiterzuleiten, damit sie dort das gleiche Verhalten auslösen. "Partner" sind alle Controls der gleichwn Klasse, die auf dem gleichen Parent liegen.

[hoika]

Hallo,

Zitat:

Ich habe Schwierigkeiten den Code zu verstehen.

Was denn konkret?

Hier ist noch ein Beispiel, wo keine neue (abgeleitete) Scrollbox für die Events benötigt wird.
https://stackoverflow.com/questions/...lbox-in-delphi

Und in PBSyncListbox wird gezeigt, wie man die eigenen Events
(hier) an alle TPBSyncListbox das Parents der eigenen ListBox schickt.
(TPBSyncListbox.Sync).

Das muss Du dir jetzt für deinen eigenen Scroller nur umbauen.