Delphi中對TRichEdit控件的每一行設置不同的顏色

今天在做一個小程序，要求界面顯示出不用的日誌信息用不同的顏色進行顯示，於是我就用了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就講到這裏，大家有什麼不懂的地方或者講錯了的地方都可以聯繫我，新浪郵箱：[email protected]  。