TMemo Scrolling in Delphi

Question

I am adding lines of text to a TMemo using : Memo1.Lines.Add(Text), which causes Memo1 to scroll to the bottom.

Is there any way to either stop it scrolling as I add lines, or force it to go back to the top when I finished?

I want a simple solution...

Thanks...

Possible duplicate of [How to stop the automatic scrolling of a Memo control?](http://stackoverflow.com/questions/14079906/how-to-stop-the-automatic-scrolling-of-a-memo-control) — Jan Doggen, Oct 06 '16 at 12:10

score 6 · Answer 1 · answered Oct 06 '16 at 01:28

Set the Memo's SelStart property to 0 and then send an EM_SCROLLCARET message to the Memo.

Memo1.Lines.BeginUpdate;
try
  Memo1.Lines.Add(...);
  ...
  Memo1.SelStart := 0;
  Memo1.SelLength := 0;
  Memo1.Perform(EM_SCROLLCARET, 0, 0);
finally
  Memo1.Lines.EndUpdate;
end;

score 4 · Accepted Answer · answered Oct 05 '16 at 23:25

4

You can use begin/end update for lines collection:

memo.Lines.BeginUpdate;
try
  memo.Lines.Add('test');
finally
  memo.Lines.EndUpdate;
end;

answered Oct 05 '16 at 23:25

JayDi

1,037
15
24

2

All this does is prevents the Memo from redrawing on each add. It does not affect scrolling. – Remy Lebeau Oct 06 '16 at 01:29
1

@ThomasJomphe: if it works, you should accept an answer – Hwau Oct 10 '16 at 16:57

TMemo Scrolling in Delphi

2 Answers2