如何实现 cmd 中命令行的那种输入效果 用Tmemo 或 Trichedit可做到么？ 如何将光标始终固定在文本末尾？

Question

我试着用Tmemo做了一下
因为需要做到回车会显示提示符"ut>"光标需要停留在提示符后，就像在cmd里一样可是我用
  if(Key = #13) then
  begin
      UT_Contents.Text := UT_Contents.Text+#13+'UT>';
  end;光标始终在memo里的头部，不知道如何做到那种想要得效果。

Answer 1

Memo1.SelStart:=100000;
  Memo1.SetFocus;

Answer 2

谢谢楼上的答复，我试了还差一点，就是用上述的办法当插入提示符的时候光标总是停在它的下一行开始处，我需要它能停在提示符后面我用下面的代码 ，也有同样的问题 
 if(Key = #13) then
  begin
      UT_Contents.seltext := 'UT>';
  end;********UT>
UT〉
光标位置在这里我需要犹如cmd里面的提示符效果 ，请教如何实现

Answer 3

你自己手工计算一共有多少字符
然后设置selstart的值emo1.SelStart:=Length(Memo1.Text)-1;

Answer 4

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    Begin
     key:=#0;
     Memo1.Text :=memo1.Text+'ut>';
     Memo1.SelStart :=10000;
     memo1.SetFocus ;
    End;
end;