Memo Auto Scrolling anhalten

[user0815]

Habe es jetzt, Dinge können so einfach sein.
BeginUpdate & EndUpdate regelt das.

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    stopscrolling : boolean;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  stopscrolling := false;
  Memo1.ScrollBars := ssVertical;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  cLinie = '-----------------------------------------------';
begin
  if stopscrolling then Memo1.Lines.BeginUpdate;

  Memo1.Lines.Append(FormatDateTime('hh:nn:ss:zzz', now));
  Memo1.Lines.Append(cLinie);

  if stopscrolling then Memo1.Lines.EndUpdate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  stopscrolling := not stopscrolling;

  if stopscrolling
   then Button1.Caption := 'starten'
    else Button1.Caption := 'anhalten';
end;