delphi RichEdit控件的用法

图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;