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;