Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

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

← →
-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.

---

← →
-virus- ©   (2005-07-12 21:38) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.051 c