In Windows 7, a memo control (TMemo
) will scroll automatically after text is insterted (Memo.Lines.Add(Path);
), which I do not want, because scrolling is done by myself.
How can I stop the automatic scrolling?
Normally, adding text to a memo control scrolls the memo to the bottom of the inserted text. To prevent that, call Lines.BeginUpdate
before adding text, and call EndUpdate
afterwards:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.BeginUpdate;
try
Memo1.Lines.Add('...');
Memo1.Lines.Add('...');
...
finally
Memo1.Lines.EndUpdate;
end;
end;
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With