注:转载源地址:http://blog.163.com/t_form/blog/static/1234852322009760361084/
刚刚接触了RichEdit这个控件,这个控件和memo控件类是,都是文本编辑控件,但是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;