RichEdit的简单问题，请高手近来看看帮帮忙！急急急...在线等待！！

Question

怎么在程序运行的时候使RichEdit的RichEdit.selStart跳到第二行？？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    richedit1.SelStart:=length(richedit1.Lines[0]);
    richedit1.SelLength:=30;
    richedit1.SelAttributes.Color:=clred;
end;
看看这样可以吗？

Answer 2

RichEdit1.SelStart := Length(RichEdit1.Lines[0]) + 2;
RichEdit1.SetFocus;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
    richedit1.SelStart:=length(richedit1.Lines[0]);
    richedit1.SelLength:=length(richedit1.Text) -length(richedit1.lines[0]) ;
    richedit1.SelAttributes.Color:=clred;
end;

Answer 4

richedit1.SelStart := length(richedit1.Lines[0])+2;
  richedit1.SelLength := 5(你需要的数）;
  richedit1.HideSelection := false;