delphi - Modaldialog 对 Enter/ESC 没有反应

Question

我有一个带有确定和取消按钮的模态对话框。对于确定，我将Default 属性设置为True，对于取消 按钮，我将Cancel 属性设置为True。 ModalResult 分别设置为 mrOK 和 mrCancel。

但是，按键盘上的 Enter 和 Esc 键都不会关闭对话框。我在这里错过了什么？

编辑
我发布了small test application使用我网站上的可疑对话框。 IDE是RAD Studio XE3。

Answer 1

从您发布的示例中，您可以看到 TSpinEdit 控件已获得焦点并捕获按键。

要在所有情况下关闭模态表单，请将表单 KeyPreview 设置为 true 并将其插入到 OnKeyPress 事件中:

procedure TSelectDlg.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = Char(vk_escape)) then  // #27
    CancelBtn.Click
  else
  if (Key = Char(vk_return)) then  // #13
    OkBtn.Click;    
end;