本文整理自网络，侵删。
刚刚接触了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;
相关阅读 >>
Delphi win32，win64用于单/多线程计数素数的整数性能比较
更多相关阅读请进入《Delphi》频道 >>
