Na ungefähr so:
Delphi-Quellcode:
procedure TForm.RicheditChange(Sender: TObject);
var
cp: TPoint;
begin
cp := Richedit.CaretPos;
Richedit.selstart := 0;
Richedit.SelLength :=
Length(Richedit.Lines[0]) + 2 + // + 2 wegen dem #13#10 hinter einer Zeile
Length(Richedit.Lines[1]) + 2 + // -"-
Length(Richedit.Lines[2]) + 2; // -"-
Richedit.SelAttributes.color := clRed;
Richedit.selstart := 0;
Richedit.CaretPos := cp;
Richedit.SelAttributes.color := Richedit.Font.Color; // Zurücksetzen der Farbe
end;
Da es aber besser wäre die Sache in Paint-Event zu machen ist es besser auch hier eine eigene Klasse abzuleiten...