如果你的控制字符只有一个字符那不存在 keendom 所说的问题：

如果有多个字符,为防止控制字符被编辑可使用protect属性，用消息来实现

//上接取属性语句
Richedit::CHARFORMAT2 fmt;
fmt.cbSize = sizeof(Richedit::CHARFORMAT2A);
fmt.dwMask = CFM_PROTECTED;
fmt.dwEffects = CFE_PROTECTED;
fmt.crTextColor = clTeal;  //你要的颜色
SendMessage(Editor->Handle, EM_SETCHARFORMAT, SCF_SELECTION, (LPARAM)&fmt);
EditForm->Editor->Lines->Add(string);
//下接恢复属性语句

指定的文字实行只读保护

Editor->SelAttributes->Protected = false;

只要Protected一设为true，控制字符就根本输不进去。

设置保护关键值

所以要重新设置RichEdit1.SelStart和RichEdit1.SelLength，它们现在的真正位置

RichEdit1.SelAttributes.protected:=true后在没有任何编辑的情况下重新把RichEdit1.SelAttributes.protected:=false后就不能修改了，这时我把整个RichEdit1选中

解决办法：

   SendMessage(RichEdit->Handle, EM_SETPARAFORMAT, EN_PROTECTED, 0);

在OnProtectChange事件作设置。

    根据情况AllowChange=true或AllowChange=false;

标签：控件,RICHEDIT,fmt,BCB,RichEdit1,PROTECTED,Editor,SelAttributes,控制字符
来源： https://blog.csdn.net/huang714/article/details/88785865