Delphi中对TRichEdit控件的每一行设置不同的颜色

Delphi中对TRichEdit控件的每一行设置不同的颜色

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

本文永久更新链接地址：