Delphi 中的 TMemo 滚动

Question

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

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

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

谢谢...

Answer 1

将 Memo 的SelStart属性设置为 0，然后向EM_SCROLLCARETMemo发送消息。

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