简单的文本输入字段接受换行符

Question

是否有一种简单的方法可以让它发挥作用？

text = "";
DialogInput[{TextCell["Try to type a text with linebreaks :-)"],
  InputField[Dynamic[text], String], 
  Button["Ok", DialogReturn[text]]}]

问题是InputField在输入后终止Return.我只想要一个简单的文本输入字段.

Answer 1

感谢单挑的列昂尼德.这是代码:

text = "";
DialogInput[{TextCell["Try to type a text with linebreaks :-)"], 
  InputField[Dynamic[text], String, FieldSize -> {30, 6}], 
  DefaultButton[DialogReturn[text]]}, 
 NotebookEventActions -> {"ReturnKeyDown" :> 
    FrontEndExecute[NotebookWrite[InputNotebook[], "\n"]]}]

FrontEndExecute语句在此版本中稍微简单一些.

顺便提一下,要清除NotebookEventActions的默认Return键操作,您可以使用NotebookEventActions->{}.这对于在输入期间停止对话框消失非常有用.