Скролинг текста в RichEdit

← →
perseptron (2003-02-11 13:00) [0]

Please Help ME! Как сделать чтоб при добавлении строки методом RichEdit1.Lines.Add можна было бы видеть добавленый текст (тоесть скролер RichEdit"a не уходил вверх а все время был внизу)

← →
Alexkr (2003-02-11 13:11) [1]

Один из вариантов:

var
M: TWMScroll;
begin
......
M.Msg := WM_VSCROLL;
M.ScrollCode := SB_BOTTOM;
......
RichEdit1.Dispatch( M );
Application.ProcessMessages;
......
end;

← →
perseptron (2003-02-11 13:41) [2]

вариант работает но немного не так как хотелось бы - текст уходит за пределы видимой области и чтоб его вернуть надобно опять кликать по проклятому скроллеру только вот уже в другую сторону. Пробовал добавить что-то типа M.Pos:=M.Pos-5 не получилось (в смысле результата). Может попробуем другие варианты...

← →
Alexkr (2003-02-11 13:52) [3]

Действительно, в Win98 что-то все прыгает. На Win2000 все в норме.

← →
Sheriff (2003-02-11 13:55) [4]

Rich1.Perform(WM_VSCROLL,SB_LINEDOWN,0);

← →
perseptron (2003-02-11 14:49) [5]

Если вместо SB_LINEDOWN поставить SB_BOTTOM а потом повторить процедурку для SB_LINEUP тогда получится то чего я добивался. Интересная и полезная оказывается процедура этот perform (надо будет разобратся) . Спасибо за помощь.

Скролинг текста в RichEdit Найти похожие ветки