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?
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;
System.Classes.TStrings.BeginUpdate
it says "Some descendants of TStrings use this information to perform certain actions, such as telling a control to repaint, when updates are complete." –
Slink TMemoStrings.SetUpdateState
is implemented the way it is. –
Scrubber © 2022 - 2024 — McMap. All rights reserved.