RichEdit 的字体怎么改？

Question

还是认真回答吧。
修改它的 Font 属性就行了。

Answer 1

procedure ZsRichEditAppend(mRichEdit: TRichEdit; mText: string; mFont: TFont);
{ 添加一个RTF字符串 }
var
  I, L: Integer;
  vText: string;
begin
  vText := mRichEdit.Lines.Text;
  I := Length(vText);
  L := 0;
  while (I > 0) and (L < 2) and (vText[I] in [#13, #10]) do begin
    Inc(L);
    Dec(I);
  end;  mRichEdit.SelStart := I;
  mRichEdit.SelLength := L;
  mRichEdit.SelAttributes.Assign(mFont);
  mRichEdit.SelText := mText;
end; { ZsRichEditAppend }

Answer 2

font 是不是有一个color属性。你可以试试。

Answer 3

//设置9号粗斜宋体
  RichEdit1.SelAttributes.Name := '宋体'; 
  RichEdit1.SelAttributes.Size := 9;
  RichEdit1.SelAttributes.Style :=RichEdit.SelAttributes.Style+[fsBold] + [fsItatic];

Answer 4

大家不会是还没看我的问题就回答了吧？
还是我没说清楚？
我要做一个语法制导的Editor,现在的问题是：
不论我要改变还是判断一个字符串的字体属性，我都要先选中他，改完后再取消选定，这样屏幕上就会闪一下，我想知道怎样解决。当然若能先把选中色改为背景色也可避免这一问题。

Answer 5

大家不会是还没看我的问题就回答了吧？
还是我没说清楚？
我要做一个语法制导的Editor,现在的问题是：
不论我要改变还是判断一个字符串的字体属性，我都要先选中他，改完后再取消选定，这样屏幕上就会闪一下，我想知道怎样解决。当然若能先把选中色改为背景色也可避免这一问题。