如何通过写代码给TRichEdit控件插入有属性（字体大小，颜色等）的一段文本！

Question

比如写html文件时
<font size = 2 color = red>文本内容</font>
就能在浏览器中显示size = 2; color = red 的"文本内容";假设:
现在我想把一段普通(平)文本, 如下:
<2;'red'>文本内容
加到TRichEdit控件 显示size = 2; color = red 的"文本内容";
应该怎么做?

Answer 1

procedure tform1.Button1Click(Sender: TObject);
begin
  inherited;
 richedit1.SelStart:=sendmessage(richedit1.Handle,em_lineindex,0,0);
 richedit1.SelLength:=length(richedit1.Lines[0]);
 richedit1.SelAttributes.Color:=clred; //颜色
 richedit1.SelAttributes.Size:=23;  //字号
end;

Answer 2

请问有谁知道RichEdit控件能否可以显示‘有图片的word文档’？