Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как прокрутить текст в начало ?


KaLLeKa ©   (2006-07-22 20:51:00) 

У меня программа загружает потоком текст в Мемо, но после загрузки указатель полосы прокрутки всегда в самом низу мемо. Как сделать так, чтобы после загрузки указатель был в самом верху на первой строке?

Пробовал по всякому - ничего не получается....
Memo1.Perform(EM_SCROLLCARET, 0, 0);

SendMessage(Memo1.Handle, EM_LINESCROLL, 0, 0);

Помогите пожалуйста


KaLLeKa   (2006-07-22 21:10:00) [1]

Джо спасибо :)


Джо   (2006-07-22 21:10:00) [2]

А можно и так. В принципе, без разницы.
 Memo1.CaretPos := Point (0,0);
 Memo1.Perform(EM_SCROLLCARET,0,0)


Джо   (2006-07-22 21:00:00) [3]

Ну, и каретку перевести после этого:
 Memo1.CaretPos := Point (0,0);


Джо   (2006-07-22 20:58:00) [4]

Можно, например, так:
 SendMessage(Memo1.Handle, WM_VSCROLL, SB_TOP, 0)


Наверх

Титульная страница Поиск, карта сайта Написать письмо