нужна помощь по полосе прокрутки

← →
-virus- © (2005-07-12 19:43) [0]

Есть компоненты: TScrollBar и 4-е TMemo.
Нужно чтобы при прокрутки ScrollBar прокручивались все 4-е Memo.
Буду очень благодарен за помощь...

← →
begin...end © (2005-07-12 20:08) [1]

Можно из обработчика TScrollBar.OnScroll посылать каждому из четырёх memo сообщение WM_VSCROLL.
Пример (для вертикального scrollbar"а):

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); begin Memo1.Perform(WM_VSCROLL, MAKEWPARAM(SB_THUMBPOSITION, ScrollPos), 0); // То же самое для остальных Memo ... end.

← →
begin...end © (2005-07-12 20:10) [2]

Разумеется, горизонтальный скроллинг можно осуществить, используя WM_HSCROLL.

Спасибо большое

нужна помощь по полосе прокрутки Найти похожие ветки