06]delphi10.3中richedit中文本背景颜色

uses Winapi.RichEdit;

procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
varFormat: CHARFORMAT2;
beginFillChar(Format, SizeOf(Format), 0);with Format do            begincbSize := SizeOf(Format);dwMask := CFM_BACKCOLOR;crBackColor := AColor;Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));end;end;procedure TMainForm.ToolButton14Click(Sender: TObject);
beginRE_SetSelBgColor(editor, clYellow);   //设置 文字 背景色editor.SelLength:=0;
end;