user-interface - 对话操作

Question

我想创建一个对话框窗口，用户可以在其中执行各种任务，并希望他通过用鼠标单击“取消”按钮(即不是通过按 Enter)从对话框返回。因此我不想使用 CreateDialog。但是，通过 CreateWindow 创建一个不太具体的对话窗口，所有字符串都显示为未格式化。

expr = Column[{
   Row@{"set variable to: ", InputField["value", String]},
   "Try to hit Enter in any of the dialogs: it closes #2 but not #1.",
   CancelButton[]
   }];

CreateWindow[DialogNotebook[expr], WindowSize -> All, WindowMargins -> {{100, Automatic}, {Automatic, Automatic}}, WindowTitle -> "1. CreateWindow & DialogNotebook"];
CreateDialog[expr, WindowTitle -> "2. CreateDialog"];

有没有什么巧妙的方法可以使第二个对话窗口的外观与第一个对话窗口的按钮行为相同？当然，这里的expr只是一个简单的例子，但在现实中可能会很复杂，因此不能将每个字符串都包装到Cell[string, "Text"]，以及所有其他表达式都变成了一些晦涩的方框形式。

Answer 1

这将停止在按下 Enter 时关闭对话窗口:

CreateDialog[expr, WindowTitle -> "2. CreateDialog", NotebookEventActions -> {}];

它会覆盖默认对话框 NotebookEventActions。