如何停止自动滚动备忘录控件?

时间:2012-12-29 08:09:15

标签: delphi delphi-xe3 windows-messages

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

如何停止自动滚动?

1 个答案:

答案 0 :(得分:8)

通常,将文本添加到备忘录控件会将备忘录滚动到插入文本的底部。为防止这种情况发生,请在添加文字前致电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;