Hallo,

ich habe eine Frage zu der TMemo-Komponente.

Ich möchte beim Überschreiten einer bestimmen Zeilenanzahl immer die erste Zeile löschen.
Leider scrollt die Komponente jedesmal wieder an den Anfang.
Wie kann man dieses Scrollern verhindern?

Danke für jeden Tip.

Moin, Moin,
vielleicht auch anders realisierbar, aber ich würde nach dem Löschen der ersten Zeile das Caret wieder auf die vorherige Position (in der letzten Zeile?!) setzen.

markieren

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
var maximal:integer;
begin
maximal := 5;
if Memo1.Lines.Count>maximal then
  begin
  Memo1.Lines.Delete(0);
  Memo1.SelStart := length(Memo1.Lines.Text);
  end;
end;

Greetz.