RichEdit的字体颜色设置。

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Text := '红红红红红红，红蓝蓝蓝蓝蓝蓝蓝蓝，绿绿绿绿绿绿';  RichEdit1.SelStart := 0;
  RichEdit1.SelLength := 12;
  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.SelStart := 13;
  RichEdit1.SelLength := 2;
  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.SelStart := 15;
  RichEdit1.SelLength := 16;
  RichEdit1.SelAttributes.Color := clBlue;  RichEdit1.SelStart := 33;
  RichEdit1.SelLength := 12;
  RichEdit1.SelAttributes.Color := clGreen;
end;

Answer 1

感谢Zswang，我想要的其实就是
RichEdit1.SelAttributes.Size:=11;
RichEdit1.SelAttributes.Style:=[];
RichEdit1.SelAttributes.Color:=clRED;
RichEdit1.SelText:='a'
。