今天在做一个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就讲到这里。