如何读取RichEdit中选中文字的背景色？

Question

------------------------------------------------------------------------
var
  Fmt:TCharFormat2;
begin
Fmt.cbSize   :=   SizeOf(Fmt);
Fmt.dwMask:=CFM_COLOR or  CFM_BACKCOLOR  or  CFM_WEIGHT;
//设置前景色
Fmt.crTextColor:= 颜色1;
//设置背景色
Fmt.crBackColor:= 颜色2;
//发EM_SETCHARFORMAT消息给RichEdit
RichEdit1.Perform(EM_SETCHARFORMAT,SCF_SELECTION,integer(@Fmt));
end;
------------------------------------------------------------------------
设置选中文字的背景颜色和文字颜色 用这些来实现了！！我想获取选中文字的背景颜色怎么解决呀！！谢谢

Answer 1

EM_SETCHARFORMAT -> EM_GETCHARFORMAT
                       //

Answer 2

to:zswang(伴水清清)(专家门诊清洁工) 谢谢你的回复，能不能详细点 谢谢

Answer 3

to:zswang(伴水清清)(专家门诊清洁工) 谢谢你 解决了！！