| 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 |
| |
| |
