Modaldialog对进入/ esc没有反应

Question

我有一个带有 OK 和取消按钮的模态对话框。对于 OK ，我将Default属性设置为True，对于 Cancel 按钮设置Cancel属性。 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;

Answer 2

为了记录，这应该有效。但是，似乎TSpinEdit有一个bug。由于TSpinEdit是一个示例（Vcl.Samples.Spin.pas，请注意＆＃34; Samples＆＃34;），您可以自行解决此问题。

对于TSpinEdit，在WMCut之后添加以下方法声明：

   procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;

完成课程（Shift + Ctrl + C）并将以下代码添加到WMGetDlgCode：

procedure TSpinEdit.WMGetDlgCode(var Message: TWMGetDlgCode);
begin
  inherited;
  Message.Result := Message.Result and not DLGC_WANTALLKEYS;
end;

这将告诉VCL编辑控件不想处理Enter和Escape键（VK_ENTER，VK_ESCAPE）。由于它不会处理密钥，因此它们会被转发到按钮，然后根据其设置调用（默认和取消）。

欢迎在Quality Central

报告此事