КАк прокрутить RichEdit на выделенную облась

← →
TStas © (2005-06-23 00:26) [0]

Как заставить RichEdit, в который загружен большой текст прокрутиться на выделение? Сам он почему-то не прокручивается

← →
begin...end © (2005-06-23 11:58) [1]

Да, на XP сообщение EM_SCROLLCARET, которое посылается RichEdit"у при изменении свойства SelLength, почему-то ни на что не влияет.

Поэтому могу предложить только такой тупой способ:

1. Получить номер строки, в которой находится выделенный участок: N1 := SendMessage(RE.Handle, EM_LINEFROMCHAR, -1, 0).
2. Получить номер верхней видимой строки: N2 := SendMessage(RE.Handle, EM_GETFIRSTVISIBLELINE, 0, 0).
3. Прокрутить содержимое на N2 - N1 - 1 строк: SendMessage(RE.Handle, EM_LINESCROLL, 0, N1 - N2 - 1).

КАк прокрутить RichEdit на выделенную облась Найти похожие ветки