Richedit и скролинг

← →
korvet (2003-06-25 09:49) [0]

В Тmemo после дабавления строки (LINES.ADD) окно акуратно скролирвало в конец показывая добавленые строки. В RICHEDIT этот приятный момент отсутствует. Подскажите как реализовать подобную операцию в RICHEDIT.

← →
RoadStar © (2003-06-25 09:51) [1]

var ScrollMessage:TWMVScroll;
...
ScrollMessage.Msg := WM_VScroll;
ScrollMessage.ScrollCode := SB_ENDSCROLL;
RichEdit.Dispatch(ScrollMessage);
...

← →
korvet (2003-06-25 10:42) [2]

В W98 и D3 почемуто не работает !!!!

← →
RoadStar © (2003-06-25 10:51) [3]

Странна, но у меня нет возможности проверить на W98...

← →
korvet (2003-06-25 16:11) [4]

Пробовал разные способы которые разыскал на форумах
работает только SENDMESSAGE(Richedit1.handle,WM_Vscroll,SB_LINEDOWN,0) на одну строку вниз.

← →
_mandrake_ (2003-06-25 16:25) [5]

у меня тоже были схожие траблы. Вылечил так:
procedure TFMain.ScrollDown(REdit:TRichEdit); var p:tpoint; VisibleLinesCount, i : integer ; begin p:=point(2,REdit.ClientHeight-2); VisibleLinesCount:=SendMessage(REdit.Handle,EM_LINEFROMCHAR,SendMessage(REdit.Handle,EM_CHARFROMPOS,0,Integer(@p)),0)-SendMessage(REdit.Handle,EM_GETFIRSTVISIBLELINE,0,0); REdit.Perform(WM_VSCROLL,SB_BOTTOM,0); for i:=0 to VisibleLinesCount do REdit.Perform(WM_VSCROLL,SB_LINEUP,0); end

Perform(EM_SETSEL, -1, -1); Perform(EM_SCROLLCARET, 0, 0);

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