<div>
Richedit.Setfocus;<br />
<br />
then each time you add, use:<br />
<br />
SendMessage(RichEdit.Handl<wbr />e,WM_KeyDo<wbr />wn,40,0);<br />
<br />
Rob;-)
</div>


Richedit.Setfocus;

then each time you add, use:

SendMessage(RichEdit.Handle,WM_KeyDown,40,0);

Rob;-)

<div>
Wait, I forgot to tell the lines are added from a TEdit control, but I want the Edit to keep focus (It's for a chat program -- My friends wanted colors in it :-). So I'd have to keep switching focus, right?
</div>


Wait, I forgot to tell the lines are added from a TEdit control, but I want the Edit to keep focus (It's for a chat program -- My friends wanted colors in it :-). So I'd have to keep switching focus, right?

<div>
No you wouldn't have to change focus all the time. infact you don't have to use setfocus at all.<br />
<br />
Rob;-)
</div>


No you wouldn't have to change focus all the time. infact you don't have to use setfocus at all.

Rob;-)

<div>
hi,<br />
<br />
another way (sample)<br />
<br />
you can use this to scroll one line <br />
<br />
//Scroll Up <br />
procedure TForm1.Button1Click(Sender<wbr />: TObject); <br />
begin <br />
&nbsp; richedit1.Perform(EM_SCROL<wbr />L,SB_LINEU<wbr />P,0); <br />
end; <br />
<br />
//Scroll Down <br />
procedure TForm1.Button2Click(Sender<wbr />: TObject); <br />
begin <br />
&nbsp; richedit1.Perform(EM_SCROL<wbr />L,SB_LINED<wbr />OWN,0); <br />
end; <br />
<br />
meikl
</div>


hi,

another way (sample)

you can use this to scroll one line

//Scroll Up
procedure TForm1.Button1Click(Sender: TObject);
begin
  richedit1.Perform(EM_SCROLL,SB_LINEUP,0);
end;

//Scroll Down
procedure TForm1.Button2Click(Sender: TObject);
begin
  richedit1.Perform(EM_SCROLL,SB_LINEDOWN,0);
end;

meikl

<div>
Thank you, glad to be of service :)<br />
<br />
<br />
GL<br />
Mike
</div>


Thank you, glad to be of service :)


GL
Mike

<div>
<div class="content wysiwyg-content">
How can I make the TRichEdit scroll along with the text when I automatically add lines to it:<br />
<br />
&nbsp; RichEdit.Lines.Add('Blah')<wbr />;<br />
<br />
??<br />

</div>
</div>


How can I make the TRichEdit scroll along with the text when I automatically add lines to it:

  RichEdit.Lines.Add('Blah');

??


Scrolling TRichEdit

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.