richEdit 遇到的关于设置了字体但是没有效果的问题。

Question

非常奇怪：
我在程序中的控制是这样的，
1、查找整个TEXT，将指定的字符改变颜色（成功！）
         dbRichEdit1.SelStart := N;
         dbRichEdit1.SelLength := Length(SearchString);
         dbRichEdit1.SelAttributes.Color :=clBlue; 
        dbRichEdit1.selAttributes.Size:=dbRichEdit1.Font.Size+1;
2、我要通过字体对话框设置整个TEXT的字体（失败！）
  FontDialog1.Font:=dbRichEdit1.Font;
  if FontDialog1.Execute then
  begin
     dbRichEdit1.Font:=FontDialog1.Font;
  end
实际上字体信息已经获得，但是没有效果。如果顺序是2、1就正常。
请问，是怎么回事，怎么解决？

Answer 1

FontDialog1.Font:=dbRichEdit1.Font;
  if FontDialog1.Execute then
  begin
     dbRichEdit1.SelStart := N;
     dbRichEdit1.SelLength := Length(SearchString);
     dbRichEdit1.Font:=FontDialog1.Font;
  end
这样就OK了。