VPF::Вставка текста в TMemo - Форум программистов

artemiy

Дата 22.7.2007, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 22.2.2007

Репутация: нет
Всего: нет

Вставляю текст в TMemo следующей процедурой:

Код


y:=TMemo.SelStart;
str:=TMemo.Text;
insert('['+buf+']',str,y+1);
TMemo.Text:=str;
TMemo.SetFocus;
TMemo.SelStart:=y+length(buf)+2;

Но если текста в TMemo много, и он прокручен - то после вставки весь текст прокручивается вначало? Как этого избежать?

Можно ли как то узнать номер строки, которая является первой видимой в TMemo? (В этом случае узнаю номер первой видимой строки в TMemo до вставки, а после - прокручиваю весь текст до этой строки). Но я что то не могу найти как это сделать...

Alexeis

Дата 22.7.2007, 11:17 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Узнать номер первой видимой строки можно послав окну мемо сообщение EM_GETFIRSTVISIBLELINE

num := SendMessage(Memo1.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);

Добавлено через 4 минуты и 41 секунду
Также полезны будут сообщения EM_SCROLL, EM_SCROLLCARET, EM_LINESCROLL.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

artemiy

Дата 22.7.2007, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 22.2.2007

Репутация: нет
Всего: нет

Спасибо, буду пробовать...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »