Question

delphi richedit光标如何回到上一行末尾？？

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
RichEdit1.SelStart := Length(richedit1.Text);
RichEdit1.SelText := #13+'请输入姓名：';
end;

这段代码运行之后，一遇到回车，就显示"请输入姓名："，同时，光标跳到下一行。
问题：如何让光标停在"请输入姓名："的后面（也就是冒号的后面），而不跳到下一行（或者不显示下一行）？？
请高手赐教一下，谢谢！！

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏30（财富值+成长值）

Answer 1

//改变第二行的字体大小为15 RichEdit1.SelStart := Length(RichEdit1.Lines[0]); RichEdit1.SelLength := Length(RichEdit1.Lines[1]) + 2; richedit1.SelAttributes.Size := 15;