Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.037 c
4-1116501708
-Игорь-
2005-05-19 15:21
2005.07.31
запуск внешних программ с ожиданием ее завершения


3-1119371214
Alex Romanskiy
2005-06-21 20:26
2005.07.31
Квадратный корень в iSQL в IB


3-1118912182
KorvinOE
2005-06-16 12:56
2005.07.31
Типы данных в MySQL


1-1121159248
ZSergey
2005-07-12 13:07
2005.07.31
Инициализация динамического двумерного массива


4-1116411956
lehich
2005-05-18 14:25
2005.07.31
кодировка и clipboard