Jak zatrzymać automatyczne przewijanie kontrolki Memo?

Question

W systemie Windows 7 kontrolka notatki (TMemo) będzie przewijana automatycznie po dodaniu tekstu (Memo.Lines.Add(Path);), którego nie chcę, ponieważ przewijanie jest wykonywane samodzielnie.

Jak zatrzymać automatyczne przewijanie?

Answer 1

Zazwyczaj dodanie tekstu do kontrolki memo powoduje przewinięcie notatki na dole wstawionego tekstu. Aby temu zapobiec, należy zadzwonić Lines.BeginUpdate przed dodawanie tekstu, a potem zadzwonić EndUpdate:

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