RichEdit: einzelne wörter färbig/fett/kursiv/...

[Sharky]

Hai,

mal aus dem Kopf:

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;