Question

delphi关于richedit的使用

我想问一下如何控制richedit的换行啊？比如说我有两个字符串a，b，长度不定，我想在让a和b分别以一行输出怎么做？还有我怎么控制每一行的颜色啊？

Answer 1

如果字符串a b的长度没有超过 richedit 的宽度,只要分别做add就可实现分别以一行输出.

颜色的话,可以先选择一行,然后修改已选择文本的属性.

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
{}i,m,k:integer;
{}a,b:string;
begin
//
self.RichEdit1.Clear;
a:='cxzcxcxcx';
b:='cvbcbvcxbvcb';
self.RichEdit1.Lines.Add(a);
self.RichEdit1.Lines.Add(b);

m:=1;//修改第2行的属性
k:=0;
for i:=0 to m-1 do
{}k:=k+Length(self.RichEdit1.Lines[i])+2;//行结束字符长度是2

self.RichEdit1.SelStart:=k;
self.RichEdit1.SelLength:=Length(self.RichEdit1.Lines[m]);
self.RichEdit1.SelAttributes.Color:=clRed;//希望的颜色

//
end;

Answer 2

换行：a + #13 + b
颜色：给你个思路吧，RICHEDIT只能对选中的字符串改变颜色，重点研究SelLength、SelStart、SelAttributes这几个属性的用法。