Zitat:
Statt .Append .Add?
Zu leicht, da ändert sich natürlich nichts.
Ich kann das ganze auch umgehen a la:
Delphi-Quellcode:
private
{ Private-Deklarationen }
ausgabe : boolean;
sl : TStringList;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
ausgabe := true;
sl := TStringList.Create;
Memo1.ScrollBars := ssVertical;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
const
cLinie = '-----------------------------------------------';
begin
if ausgabe then
begin
Memo1.Lines.Append(FormatDateTime('hh:nn:ss:zzz', now));
Memo1.Lines.Append(cLinie);
end
else begin
sl.Append(FormatDateTime('hh:nn:ss:zzz', now));
sl.Append(cLinie);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ausgabe := not ausgabe;
if ausgabe then
begin
Memo1.Lines.AddStrings(sl);
sl.Clear;
end
else sl.Add('### angehalten ###')
end;
die Frage ist ja aber ob man das Scrolling einfach durch das hochscrollen + gedrückt halten des Scroll Balkens für ne Zeit deaktivieren kann?