How to get TRichedit to scroll

How do I make a richedit control automatically scroll as more lines are added to it?
LVL 6
zebadaAsked:
Who is Participating?
 
EpsylonConnect With a Mentor Commented:
To scroll 3 lines down:

RichEdit1.Perform(EM_LineScroll, 0, 3);


To scroll 3 lines up:

RichEdit1.Perform(EM_LineScroll, 0, -3);
0
 
CrazyOneCommented:
An easy way to do it would be like this

TRichedit.SelStart := Length(TRichedit.Text);


The Crazy One
0
 
EpsylonCommented:
Or

RichEdit1.Perform(EM_Scroll, SB_PAGEDOWN, 0);
RichEdit1.Perform(EM_Scroll, SB_PAGEUP, 0);
RichEdit1.Perform(EM_Scroll, SB_LINEDOWN, 0);
RichEdit1.Perform(EM_Scroll, SB_LINEUP, 0);
0
 
zebadaAuthor Commented:
CrazyOne,
TRichedit.SelStart := Length(TRichedit.Text);
Doesn't seem to work when I am adding lines to the control in the OnActivate mehtod of the first form that is displayed by the application. i.e. before any user interaction has taken place. After that I don't need to do anything except give the control focus and it will follow (scroll) as I add ne lines.

Epsylon,
Thank-you your solution worked although on reading through some of the other messages I chose the EM_SCROLLCARET because I actually wanted to follow the cursor.
0
 
EpsylonCommented:
Glad I could help, Thanks.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.