在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;