按 Enter 时禁用 TSpinEdit 上的系统蜂鸣声

Question

我的窗体上有一个默认按钮，上面有 TSpinEdit 控件。当 TSpinEdit 控件获得焦点并且用户按下 Enter 键时，用户不会听到默认按钮，而是会听到系统蜂鸣声，因为 Enter 键对于 TSpinEdit 无效。

通常，为了避免发出蜂鸣声，我会使用 OnKeyPress 事件并设置 Key := 0 来跳过按键。然后我可以在默认按钮上执行 click 方法。但是，在这种情况下，OnKeyPress 不会触发，因为 Enter 键无效。

OnKeyDown 触发，但是当我在那里设置 Key := 0 时，它不会停止系统蜂鸣声。

那么，如何在 TSpinEdit 控件上按 Enter 键时禁用系统蜂鸣声？

我使用的是 Delphi 5，他们没有包含 Spin.pas 的源代码。

Answer 1

您必须从 TSpinEdit 下降并覆盖 IsValidChar 以避免 MessageBeep 调用，或覆盖 KeyPress 以避免 IsValidChar。

Answer 2

试试这个

//Disable system beep
SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_SENDWININICHANGE); 

//Enable system beep
SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_SENDWININICHANGE); 

Answer 3

在表单上设置 KeyPreview = True 并将以下代码添加到表单的按键事件中：

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if SpinEdit1.Focused and (Key = #13) then
  begin
    Key := #0; // Cancels the keypress
    Perform(CM_DIALOGKEY, VK_RETURN, 0); // Invokes the default button
  end;
end;