Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Редакторы текста, отчеты / Как прокрутить текст в Tmemo или в TRichEdit

Как прокрутить текст в Tmemo или в TRichEdit

Я добавляю програмно несколько строк в конец поля Memo, а их не видно. Как прокрутить Memo, чтобы было видно последние строки ?
Примерно так:
SendMessage(Memo1.Handle, EM_LINESCROLL, 0, Memo1.Lines.Count-1);

или

Пример как прокрутить строки у любого визуального компонента, содержащего списоки, например ListBox...

var
  M: TWMScroll;
  // тут что-то
begin
  // и тут что-то
  M.Msg := WM_VSCROLL;
  M.ScrollCode := SB_BOTTOM;
  // и тут что-то
  // какой-то цикл
    ListBox1.Items.Add(Name);
    ListBox1.Dispatch(M);
    Application.ProcessMessages;
  // конец цикла

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru