换行

Question

当用户在Memo中键入回车的时候，能够隔开一行，也就是说在用户键入一个回车时，系统在加一个回车。

Answer 1

在Onkeypress中判断
if key=#13 then
  key := #13+#13;

Answer 2

在onkeypress中
if key = #13 then
memo.text.add('');

Answer 3

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
memo1.Lines.Add('');end;

Answer 4

楼上的事件倒是不错，可惜只能在尾部隔行。
应该使用SelText := #13 + #10;