Delphi中的TMemo滚动

Question

我正在使用：Memo1.Lines.Add(Text) 将文本行添加到 TMemo，这会导致 Memo1 滚动到底部。

有什么方法可以在我添加行时停止滚动，或者在我完成后强制它回到顶部？

我想要一个简单的解决方案...

谢谢...

Answer 1

将备忘录的SelStart 属性设置为0，然后向备忘录发送EM_SCROLLCARET 消息。

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

Answer 2

您可以对行集合使用开始/结束更新：

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