RichEditのハイライトを削除します

Question

次のコードを使用してRichEditのテキストを強調表示しています。

procedure TAFormatMain.BtHighLightTextClick(Sender: TObject); 
const 
    AColor = clYellow; 
var 
    Format: CHARFORMAT2; 
begin 
    FillChar(Format, SizeOf(Format), 0); 
    with Format do 
    begin 
    cbSize := SizeOf(Format); 
    dwMask := CFM_BACKCOLOR; 
    crBackColor := AColor; 
    RiEd.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format)); 
    end; 
    RiEd.SelStart := RiEd.SelStart + RiEd.SelLength; 
end; 

誰がどのようにハイライトを削除するか、（Microsoft Wordの色なしに相当）、「色なし」の色値がどうなるかを教えてもらえます。ネット上でこのトピックに関する関連情報を見つけることができませんでした。背景色セット休ませる

Answer 1

：

Format.dwEffects := CFE_AUTOBACKCOLOR; 
Format.dwMask := CFM_BACKCOLOR; 

も参照してください：CHARFORMAT2 structure