TMemo: Scrollen unterbinden

[Nico80]

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.

[taaktaak]

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.

[TypusMensch]

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.