RichEdit中字体颜色的问题！！在线等候

Question

我用RichEdit来显示聊天记录，我想用不同的字体颜色来区分我收到的消息和我自己发送的消息，我该怎么做？谢谢大家

Answer 1

给你一个function
procedure ShowInMonitor(Descr:string;MsgLevel:intger);
begin
  Richedit1.SelStart :=Richedit1GetTextLen;
  Richedit1.SelLength :=0;
  case MsgLevel of
    1:Richedit1.SelAttributes.Color :=clBlue; //信息
    2:Richedit1.SelAttributes.Color :=clGray; //警告
    3:Richedit1.SelAttributes.Color :=clRed; //错误
    4:Richedit1.SelAttributes.Color :=clMaroon; //严重错误
  end;
  Richedit1.Lines.Add(Descr);
end;

Answer 2

插入文本之前
RichEdit1.DefAttributes.Color := clBlue;