怎样获取richedit里每个字的颜色字体属性

Question

用到了 richedit 控件 想获取里面每个字属性 （颜色，字体）
。用的是这种方法：（每次选择一下文本）
 for i:= 1 to Length(RichEdit1.txet) do
 begin
     form1.RichEdit1.SelStart:=i-1;
     form1.RichEdit1.SelLength:=1;  //每次选择1个
     fontColor[i]:=form1.RichEdit1.SelAttributes.Color;
     fontsize[i]:=form1.RichEdit1.SelAttributes.size;
     form1.RichEdit1.SelLength:=0; //释放所选的
  end;
但这样编辑框老在跳光标，光标从头到尾的闪下来
。明显不好。
求别的办法

Answer 1

操作时可以试试把光标隐藏，该操作结束后恢复光标显示hideCaret(rrichedit1.handle);
.....
ShowCaret(rrichedit1.handle);