有谁对memo1或richedit这两个控件比较熟悉请进/

Question

怎样对该控件的某一行进行操作，比如把第2行的文本的颜色改为红色。其他的为默认的。

Answer 1

只能用richedit了
RichEdit1.SelAttributes.Color := ClRed;

Answer 2

RichEdit1.SelStart := Length(Richedit1.Lines.Strings[0])+2;  RichEdit1.SelLength := Length(Richedit1.Lines.Strings[1]);
  RichEdit1.SelAttributes.Color := ClRed;

Answer 3

楼上的回复了。
MEMO不是能格式化文本的。只有richedit了。
方法1楼的战友都说了。
试试吧.
在onSelectionChange事件上加上他的代码就可以了。

Answer 4

我用Memo做的效果，看看行不行？
procedure TForm1.Button5Click(Sender: TObject);
var ec:tcanvas;
i,j:integer;
begin
  try
  Memo1.Lines.Add(edit1.Text+#13+#10+edit2.Text);
  ec:=tcanvas.Create;
  ec.Handle:=getdc(Memo1.Handle);
  ec.Font.Color:=clred;
  for i:=0 to Memo1.Lines.Count -1 do
  begin
    if i mod 2 = 0 then
      ec.Font.Color := clBlue
    else
      ec.Font.Color := Clred;
  ec.TextOut(1,i*13,Memo1.Lines[i]);
end;
  finally
  ec.Free;
end;
end;

Answer 5

TO:ljmanage(过客) 過客
   對于Memo我只能做到這樣的效果了.......見笑了

Answer 6

TO:ljmanage(过客) 過客
   對于Memo我只能做到這樣的效果了.......見笑了