如何在RICHEDIT中插入一个彩色字符?

Question

下面的代码在第5个字符处插入红色的'happy'。 richedit1.SelStart:=5;
 richedit1.SelText:='happy';
 richedit1.SelStart:=5;
 richedit1.SelLength:=length('happy');
 richedit1.SelAttributes.Color:=clred;  //设置插入字符的颜色

Answer 1

$@$^&$&$@^*#&
还要怎么样？要不封装一个函数给你？
InsertStringToRichEdit(Richedit:TRichedit;x,y:integer;color:TColor)？