如何避免在 TEdit 聚焦时按下 Escape 时发出叮当声？

在我几年前开发的代码中，我经常使用它来随时按 Escape 键关闭当前表单：

procedure TSomeForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key = #27 then close;
end;

此行为是为 TForm 定义的。表格的KeyPreview属性设置为True让表单在任何其他组件之前对按键做出反应。对于程序的最佳部分来说，这一切都运行得非常好，但是，当 TEdit 组件聚焦于声音（adingWindows 使用声音来表示无效操作）发出。它仍然工作正常，但我从未完全消除声音。

这有什么问题吗？

重新创建的步骤：

• 新的 VCL Forms 应用程序，将表单的 KeyPreview 设置为 true

• 在事件选项卡上双击 onKeyPress 事件并输入虚拟代码：

  如果 key=#27 那么 ;

• 将 TListBox、TCheckBox、TEdit 添加到表单并运行应用程序

• 在应用程序中尝试按 Esc 键，但没有任何反应，如虚拟代码所指定
• 聚焦 TEdit 并按 Esc。没有任何反应，但会播放声音。

您收到叮当声是因为您将 ESC 留在了输入中。看看 Key 是如何var？将其设置为#0，即可消除叮当声。这使其免于进一步处理。

procedure TSomeForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key = #27 then 
    begin
      key := #0;
      close;
    end;
end;

KeyPreview 就是这样，预览将传递给控件的内容，除非您停止它。