不用鼠标框选,如何使用程序实现，设置RichEdit的某行某列的背景色？(50分)

不用鼠标框选,如何使用程序实现，设置RichEdit的某行某列的背景色？<br>就象Word一样可以用鼠标框选局部，然后再设置字体的颜色，背景色...，现如何不用鼠标框选，而用程序实现某行某列的背景色？

uses <br>&nbsp; RichEdit; <br><br>procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor); <br>var <br>&nbsp; Format: CHARFORMAT2; <br>begin <br>&nbsp; FillChar(Format, SizeOf(Format), 0); <br>&nbsp; with Format do <br>&nbsp; begin <br>&nbsp; &nbsp; cbSize := SizeOf(Format); <br>&nbsp; &nbsp; dwMask := CFM_BACKCOLOR; <br>&nbsp; &nbsp; crBackColor := AColor; <br>&nbsp; &nbsp; Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format)); <br>&nbsp; end; <br>end; <br><br>// Example: Set clYellow background color for the selected text. <br>procedure TForm1.Button1Click(Sender: TObject); <br>begin <br>&nbsp; RE_SetSelBgColor(RichEdit1, clYellow); <br>end; <br>需要Richedit2.0的支持<br>这个你看一下有没有帮助吧

用RxRichEdit<br>有SelAttributes.BackColor属性

这是实现前景色的方法。<br>&nbsp; richedit1.SelStart:=2;<br>&nbsp; richedit1.SelLength:=3;<br>&nbsp; richedit1.SelAttributes.Color:=clred;<br>&nbsp; richedit1.SetFocus;<br>

lt66:谢谢你，那你知道咋设置背景色呢？<br><br>app2001：谢谢，你有richedit2的控件吗？能不能发给我一个，我的邮址是：<br>&nbsp; &nbsp; &nbsp; sunnysheng@sina.com &nbsp; 或者告诉我一个确定的下载网址。

没有，你到DELPHI盒子里找找看吧

没有啊？我没有找到，太难找了<br>

app2001说的是对的！ 原来你问的是这个，一直看你问‘Richedit2组件’。。。。。<br>其实，所谓‘需要Richedit2.0的支持’，应该是系统有RICHED32.DLL或riched20.dll（现在系统都有），就可以了！<br>不要额外的Richedit2.0控件，明白了吗？正好我做的一个程序也是改richedit背景的，是否有感兴趣看看？

代码在 &nbsp;http://liumazi.efile.com.cn/ &nbsp;的 lxdz.rar ，请下载看看

刘麻子你好，你帮我解决的其它问题，我都已经给分了，谢谢你。

[]不客气！