Как выполнить автопрокрутку до конца RichEdit?

Question

Раньше мне никогда не приходилось использовать TRichEdit, всегда использовал TMemo.

Я бы хотел, чтобы RichEdit автоматически прокручивался до конца, когда я добавляю текст, такой как TMemo.Посмотрите, как это выглядит после добавления некоторых данных:

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

Я «гуглил» решения, но не смог найти хорошего и надежного.

Answer 1

Попробуйте этот код

RichEdit1.SetFocus;
RichEdit1.SelStart := RichEdit1.GetTextLen;
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);

Answer 2

Вот гораздо более простое и быстрое решение:

В обработчике событий OnChange просто:

SendMessage(RichEdit1.handle, WM_VSCROLL, SB_BOTTOM, 0);

Оригинальный ответ от: https://www.experts -exchange.com / questions / 21002277 / Richedit-autoscrolling.html

Answer 3

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

Вы пробовали

Richedit1.SelStart :=RichEdit1.GetTextLength();
SendMessage(RichEdit1.handle, EM_SCROLLCARET,0,0);