Delphi中基本控件之TRichEdit控件的使用总结

注：转载源地址：http://blog.163.com/t_form/blog/static/1234852322009760361084/  

刚刚接触了RichEdit这个控件，这个控件和memo控件类是，都是文本编辑控件，但是RichEdit有一个优势，就是可以给指定的字符串添加颜色，字体样式，字体大小，等等功能 如图1.

图1：

呵呵，想聊天工具，就有这样的效果！ 介绍一下RichEdit的几个属性吧~！

  RichEdit1.SelStart :=0 //  这个代表开始的位置，就是从上面地方开始添加颜色，样式！

  RichEdit1.SelLength := 5 ;//这个代表给多少字符添加颜色！

richedit1.SelAttributes.Color  这个是具体属性！

类是聊天窗口的颜色写法！代码如下

procedure TForm1.Button1Click(Sender: TObject);
var
  sNickName, sstr: string;
begin
  sstr := '改变颜色的字符串-----------------!';
  sNickName := '用户1：';
  richedit1.Lines.Add(sNickName + sstr);

  RichEdit1.SelStart := Length(RichEdit1.Text) - Length(sstr)-2;//(Length(sNickName)  + length(sstr)); //Length(sNickName);

  RichEdit1.SelLength := Length(sstr);
  richedit1.SelAttributes.Color := clRed;
end;