delphi 多次改变 RichEdit.Text部份文本的颜色后，出现所有字体都变色的的解决办法

本文整理自网络，侵删。

 Procedure TForm1.FormCreate(Sender: TObject);
Begin
  RichEdit1.Text := '012345678';
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  RichEdit1.SelStart := 0;
   RichEdit1.SelLength := 3;
   RichEdit1.SelAttributes.Color := clRed; //012为红色

  RichEdit1.SelStart := 5;
   RichEdit1.SelLength := 4;
   RichEdit1.SelAttributes.Color := clBlue; //5678为蓝色

//RichEdit1.ClearSelection;
 //只是删除最后一个选区(如上面为蓝色的选区)的字符，不是清除 所有选择样式
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
  RichEdit1.SelStart := 0; //清除 所有选择样式
  RichEdit1.SelLength := Length(RichEdit1.Text);
   RichEdit1.SelAttributes.Color := clBlack;
End; 

相关阅读 >>

Delphi 抓图后打印这张图片,弹出打印属性框

Delphi 获取中文/数字星期的函数

Delphi indy smtp 发送邮件

Delphi winapi: getwindowrect、getclientrect - 获取窗口的外部与内部矩形

Delphi下程序内存泄露报告

Delphi 清空某个form的控件内容,用tag来判断

Delphi net.httpclient用最精简的代码获取网页数据

Delphi 控制台关闭指定窗口

Delphi c语言对比指针的用法

Delphi代码实现窗口最小化，最大化，关闭消息发送

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 多次改变 RichEdit.Text部份文本的颜色后，出现所有字体都变色的的解决办法