请教一个和Tmemo有关的问题

刚才我测试了一下，不知道是不是你需要的方法。
在Memo的OnKeyPress事件里加入以下语句，
if key=#13 then
PostMessage(Memo1.Handle,WM_CHAR,ORD('>'),0);//假如你要回车后在下一行插入一个'>'字符作为开头。

贪玩，在Memo的OnKeyPress事件加入下面一段，就可以象DOS环境里敲一下回车，下一行以"C:\>"开头的提示符
if key=#13 then
begin
PostMessage(Memo1.Handle,WM_CHAR,ORD('C'),0);
postMessage(Memo1.Handle,WM_CHAR,ORD(':'),0);
postMessage(Memo1.Handle,WM_CHAR,ORD('\'),0);
PostMessage(Memo1.Handle,WM_CHAR,ORD('>'),0);
end;

对啊对啊！太感谢了