delphi - 按 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 .