Modaldialog对进入/ esc没有反应

Question

我有一个带有OK一个Cancel按钮的模态对话框.对于OK我将Default属性设置为True,对于Cancel按钮Cancel属性.ModalResult设置为mrOK和mrCancel,分别为.

但是,无论是按键盘上Enter的Esc键还是键,都不会关闭对话框.我在这里想念的是什么？

编辑
我使用我网站上的可疑对话框发布了一个小测试应用程序.IDE是RAD Studio XE3.

Answer 1

从您发布的示例中,您可以看到TSpinEdit控件已聚焦并捕获密钥.

要在所有情况下关闭模式窗体,请将form设置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,请注意"示例"),您可以自己修复此问题.

对于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报告此事