delphi - 如何停止Memo控件的自动滚动？

Question

在 Windows 7 中，备忘录控件 (TMemo) 将在插入文本 (Memo.Lines.Add(Path);) 后自动滚动，但我不这样做想要，因为滚动是我自己完成的。

如何停止自动滚动？

Answer 1

通常，向备忘录控件添加文本会将备忘录滚动到插入文本的底部。为了防止这种情况，请在添加文本之前调用 Lines.BeginUpdate，然后调用 EndUpdate:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.BeginUpdate;
  try
    Memo1.Lines.Add('...');
    Memo1.Lines.Add('...');
    ...
  finally
    Memo1.Lines.EndUpdate;
  end;
end;