メモコントロールの自動スクロールを停止する方法は？

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;