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? — Jan Doggen
– Jan Doggen, Commented Oct 6, 2016 at 12:10

Remy Lebeau · Accepted Answer · 2016-10-06 01:28:32Z

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;

JayDi · Accepted Answer · 2016-10-05 23:25:54Z

5

You can use begin/end update for lines collection:

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

answered Oct 5, 2016 at 23:25

JayDi

1,06715 silver badges24 bronze badges

2 Comments

Remy Lebeau Over a year ago

All this does is prevents the Memo from redrawing on each add. It does not affect scrolling.

Hwau Over a year ago

@ThomasJomphe: if it works, you should accept an answer

Collectives™ on Stack Overflow

TMemo Scrolling in Delphi

2 Answers 2

Comments

2 Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

2 Comments

Linked

Related