delphi RichEdit文字背景色的处理

本文整理自网络，侵删。

 
uses RichEdit;

procedure RichEditSetBackColor( // 设置RichEdit文字背景色   mRichEdit: TRichEdit; // Rich编辑框   mBackColor: TColor // 背景色 ); 

var   vCharFormat2: TCharFormat2;
 begin  
 if not Assigned(mRichEdit) then Exit;  
 FillChar(vCharFormat2, SizeOf(vCharFormat2), 0);   vCharFormat2.cbSize := SizeOf(vCharFormat2);   vCharFormat2.dwMask := CFM_BACKCOLOR;   vCharFormat2.crBackColor := mBackColor;   mRichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@vCharFormat2)); 
end; { RichEditSetBackColor }

function RichEditGetBackColor( // 获得RichEdit文字背景色   mRichEdit: TRichEdit // Rich编辑框 ): TColor;
 var   vCharFormat2: TCharFormat2; 
begin  
 Result := clNone;  
 if not Assigned(mRichEdit) then Exit;  
 FillChar(vCharFormat2, SizeOf(vCharFormat2), 0);   vCharFormat2.cbSize := SizeOf(vCharFormat2);   vCharFormat2.dwMask := CFM_BACKCOLOR;   mRichEdit.Perform(EM_GETCHARFORMAT, SCF_SELECTION, Longint(@vCharFormat2));  
 Result := vCharFormat2.crBackColor;
 end; { RichEditGetBackColor }

来源：http://www.cnblogs.com/key-ok/p/3359689.html
 

相关阅读 >>

Delphi中如何判断mediaplayer控件所播放的文件是否播放完毕？

Delphi 获取指定年月的周、日数 -weeksinayear、weeksinyear、daysinayear、daysinamonth、daysinyear、daysinmonth

Delphi线程中关闭程序

Delphi 校验手机号及身份证号

Delphi xe5 使用 android 内置函数几个小测试

Delphi跨平台tcp库的封装

Delphi xe10 手机内部系统相关操作（手机信息、震动、剪贴板、键盘、电话、拨号）

Delphi 判断表字段是否存在

Delphi实时监视应用程序内存使用量

dekphi qq自动发消息源码

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

转载请注明出处：木庄网络博客 » delphi RichEdit文字背景色的处理