今天在做一个Delphi小程序，要求界面显示出不用的日志信息用不同的颜色进行显示，于是我就用了TRichEdit控件来实现：

代码如下：

procedure Tfrichedit.FormCreate(Sender: TObject);
begin
? redt.Lines.Clear;
? redt.Font.Size := 12;? //设置字体大小
? redt.SelAttributes.Color := clRed;
? redt.Lines.Add('[ERROR|报盘监控参数3设置失败!!!]');
? redt.SelAttributes.Color := clRed;
? redt.Lines.Add('[ERROR|报盘监控参数2设置失败!!!]');
? redt.SelAttributes.Color := clRed;
? redt.Lines.Add('[ERROR|报盘监控参数1设置失败!!!]');
? redt.SelAttributes.Color := clRed;
? redt.Lines.Add('[ERROR|报盘监控参数设置失败!!!]');
? redt.SelAttributes.Color:=clGreen; //颜色
? redt.Lines.Add('[INFOR|报盘监控线程启动成功!!!]');
? redt.Lines.Add('[DEBUG|报盘监控指标下载成功!!!]');
? redt.Lines.Add('[DEBUG|报盘监控指标设置成功!!!]');
? redt.SelAttributes.Color := clRed;
? redt.Lines.Add('[ERROR|报盘监控参数4设置失败!!!]');
? redt.SelAttributes.Color := clRed;
? redt.Lines.Add('[ERROR|报盘监控参数5设置失败!!!]');

? end;

运行结果如图所示：

那么大家可以根据自己的需要进行对不同的信息设置不同的颜色。

好了，今天的TRichEdit就讲到这里。