TRichEdit, bunter text

[Nicodius]

schau unter Selattributes

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
RichEdit1.Lines.Add(Edit1.Text);  //Word in RichEdit einfügen 
RichEdit1.SelStart := Pos (Edit1.Text,RichEdit1.Text)-1; //Position des Wortes bestimmen 
RichEdit1.SelLength := Length (Edit1.Text); //Länge festelegen 
RichEdit1.SelAttributes.Color := clRed; //Das Word rot färben 
RichEdit1.SelLength := 0;  //Markierung aufheben. 
end;