delphi - 如何停止备忘录控件的自动滚动？

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;