Четверг, 14.12.2017, 07:03 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » Параллельный скролинг нескольких memo
Параллельный скролинг нескольких memo
tatsuДата: Воскресенье, 26.08.2012, 15:44 | Сообщение # 1
Частый гость
Зарегистрирован: 17.05.2009
Группа: Пользователи
Сообщений: 27
Статус: Offline
Есть несколько (более 4) memo, растянутых вертикально, вместе образуют, что-то вроде таблицы. Все одной высоты, строки в них добавляются синхронно. т.е. всегда количество строк во всех memo одинаковое. Нужно сделать, чтобы при листании через scrollbar по вертикали листались все memo.
Понятие не имею как это можно сделать, подскажите пожалуйста.
Читал вот эту тему http://delfcode.ru/forum/29-533-1, попробовал, бред получается полный, текст глючно ползает и теряет читабельность, никакого эффекта.
Полазал в сети, нашёл вот такой вариант:

procedure TForm1.Button1Click(Sender: TObject);
var
p:tpoint;
begin
p.X:= getscrollpos(memo1.Handle,sb_vert);
setscrollpos(memo2.Handle,sb_vert,p.X, true);
end;
Беда только в том, что родной скролбар у мемо2 синхронизируется с мемо1 и встаёт куда надо, но текст в мемо 2 при этом в нужное положение не листается пока не кликнешь по перескочившему скролбару.


Сообщение отредактировал tatsu - Воскресенье, 26.08.2012, 16:44
 
delfcode » Delphi » Вопросы по Delphi » Параллельный скролинг нескольких memo
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz