草庐IT

关于windows：在输入时抑制成功哔声，但在输入时保留错误哔声

codeneng 2023-03-28 原文

Suppressing success beep sounds on enter, but leave error beep sounds in

我有一个相当大的程序，我需要一种方法来抑制按 Enter 键时发出的所有 Windows 哔声。我找到了一个可以抑制所有哔声的功能，但是当出现问题时我需要发出错误声音，所以这不是一个选项。我看到您可以通过将 Key 设置为 0 来抑制单个文本框的声音，但这不是一个选项，因为我的程序中有很多按键事件。

  • 请你解释一下为什么按 ENTER 会发出哔哔声。在我们确定您遇到这些哔声的原因之前，我们无法告诉您如何抑制它们。
  • 它在退出按钮和输入按钮上执行此操作。这似乎是 Windows 本身内置的一项功能，因为我可以通过 Winapi 调用完全禁用它。它在任何不支持多行输入的文本框上发出哔哔声

您可以通过将 TForm.KeyPreview 设置为 True 然后为您的表单添加以下 OnKeyPress 事件处理程序来抑制当编辑控件具有焦点并按下 ESCAPE 和 ENTER 时产生的这些哔声：

1
2
3
4
5
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key=#13) or (Key=#27) then
    Key := #0;
end;

如果您有一些您希望接受 ENTER 或 ESCAPE 的控件，例如多行编辑控件，那么您可以将 KeyPreview 保留为 False，并为每个单行编辑控件处理 OnKeyPress :

1
2
3
4
5
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key=#13) or (Key=#27) then
    Key := #0;
end;

或者您可以将 KeyPreview 保留为 True，然后拥有一个表单范围的 OnKeyPress 处理程序，该处理程序根据具有焦点的控件进行区分。例如，一个相当粗略的例子：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function IsSingleLineEdit(Edit: TCustomEdit): Boolean;
var
  Style: DWORD;
begin
  Style := GetWindowLongPtr(Edit.Handle, GWL_STYLE);
  Result := Style and ES_MULTILINE = 0;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (ActiveControl is TCustomEdit)
  and IsSingleLineEdit(TCustomEdit(ActiveControl)) then
    if (Key=#13) or (Key=#27) then
      Key := #0;
end;

但是，我建议您不要做这些事情。我建议您保留当前的行为。如果表单和焦点控件都不会响应这些按键，那么哔哔声是最合适的响应。用户在想要取消当前对话框时按下 ESCAPE。如果您不打算对此做出响应，则系统会发出哔哔声以表明这一点。同样，当用户想要接受当前对话框时，她按下 ENTER。同样，由于您的对话框没有响应，因此发出哔声是合适的。

I saw you could surpress the sound for a single textbox by setting the Key to 0, but this is not an option as there are a LOT of keypress events in my program. Is there any solution to this?

这实际上是执行此操作的正确方法，前提是特定的 EditBox 确实具有适当的代码来在按下 Enter 键时执行某些操作。

如果您没有任何特定代码来处理在某些字段中按 Enter 键时的某些操作，那么应该听到 Ding 的声音来告诉用户他做错了什么。

如果您将特定的编辑框限制为仅数字，也会如此。这样每当用户按下任何字母键时，都会播放 Ding 声音，并且用户知道不允许使用字母。否则用户可能会认为他的键盘有问题。

您不会想成为一个制作软件的人，该软件的使用导致许多键盘被破坏。或者你会吗？ :-)

所以我担心您将不得不为很多 KeyPress 事件进行大量代码编辑。我必须承认我有点为你感到难过。曾经处于类似的位置。

关于使用表单 KeyPreview 过滤 Enter 和 Escape 键的 David Heffernan 的建议。

不要！真的！别！为什么？

因为这样做可能会干扰其他一些组件的正常功能。

例如，将该代码与 ComboBox 组合使用会阻止您使用 Escape 键折叠展开的组合框。

  • if (ActiveControl is TCustomEdit) and IsSingleLineEdit(TCustomEdit(ActiveControl)) then 问问自己一个组合框是否是一个编辑控件。

哔声入时spanclasssectionbeepdelphiwindows

有关关于windows：在输入时抑制成功哔声，但在输入时保留错误哔声的更多相关文章

  1. ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2

    我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0

  2. ruby-on-rails - Rails 常用字符串(用于通知和错误信息等) - 2

    大约一年前，我决定确保每个包含非唯一文本的Flash通知都将从模块中的方法中获取文本。我这样做的最初原因是为了避免一遍又一遍地输入相同的字符串。如果我想更改措辞，我可以在一个地方轻松完成，而且一遍又一遍地重复同一件事而出现拼写错误的可能性也会降低。我最终得到的是这样的:moduleMessagesdefformat_error_messages(errors)errors.map{|attribute,message|"Error:#{attribute.to_s.titleize}#{message}."}enddeferror_message_could_not_find(obje

  3. ruby-on-rails - 迷你测试错误 : "NameError: uninitialized constant" - 2

    我遵循MichaelHartl的“RubyonRails教程:学习Web开发”，并创建了检查用户名和电子邮件长度有效性的测试(名称最多50个字符，电子邮件最多255个字符)。test/helpers/application_helper_test.rb的内容是:require'test_helper'classApplicationHelperTest在运行bundleexecraketest时，所有测试都通过了，但我看到以下消息在最后被标记为错误:ERROR["test_full_title_helper",ApplicationHelperTest,1.820016791]test

  4. ruby-on-rails - 如何在 Rails View 上显示错误消息？ - 2

    我是rails的新手，想在form字段上应用验证。myviewsnew.html.erb.....模拟.rbclassSimulation{:in=>1..25,:message=>'Therowmustbebetween1and25'}end模拟Controller.rbclassSimulationsController我想检查模型类中row字段的整数范围，如果不在范围内则返回错误信息。我可以检查上面代码的范围，但无法返回错误消息提前致谢 最佳答案 关键是您使用的是模型表单，一种显示ActiveRecord模型实例属性的表单。c

  5. 使用 ACL 调用 upload_file 时出现 Ruby S3 "Access Denied"错误 - 2

    我正在尝试编写一个将文件上传到AWS并公开该文件的Ruby脚本。我做了以下事情:s3=Aws::S3::Resource.new(credentials:Aws::Credentials.new(KEY,SECRET),region:'us-west-2')obj=s3.bucket('stg-db').object('key')obj.upload_file(filename)这似乎工作正常，除了该文件不是公开可用的，而且我无法获得它的公共(public)URL。但是当我登录到S3时，我可以正常查看我的文件。为了使其公开可用，我将最后一行更改为obj.upload_file(file

  6. ruby-on-rails - 错误 : Error installing pg: ERROR: Failed to build gem native extension - 2

    我克隆了一个rails仓库，我现在正尝试捆绑安装背景:OSXElCapitanruby2.2.3p173(2015-08-18修订版51636)[x86_64-darwin15]rails-v在您的Gemfile中列出的或native可用的任何gem源中找不到gem'pg(>=0)ruby​​'。运行bundleinstall以安装缺少的gem。bundleinstallFetchinggemmetadatafromhttps://rubygems.org/............Fetchingversionmetadatafromhttps://rubygems.org/...Fe

  7. ruby - ＃之间？ Cooper 的 *Beginning Ruby* 中的错误或异常 - 2

    在Cooper的书BeginningRuby中，第166页有一个我无法重现的示例。classSongincludeComparableattr_accessor:lengthdef(other)@lengthother.lengthenddefinitialize(song_name,length)@song_name=song_name@length=lengthendenda=Song.new('Rockaroundtheclock',143)b=Song.new('BohemianRhapsody',544)c=Song.new('MinuteWaltz',60)a.betwee

  8. ruby - 如何验证 IO.copy_stream 是否成功 - 2

    这里有一个很好的答案解释了如何在Ruby中下载文件而不将其加载到内存中:https://stackoverflow.com/a/29743394/4852737require'open-uri'download=open('http://example.com/image.png')IO.copy_stream(download,'~/image.png')我如何验证下载文件的IO.copy_stream调用是否真的成功——这意味着下载的文件与我打算下载的文件完全相同，而不是下载一半的损坏文件？documentation说IO.copy_stream返回它复制的字节数，但是当我还没有下

  9. ruby-on-rails - 每次我尝试部署时，我都会得到 - (gcloud.preview.app.deploy) 错误响应 : [4] DEADLINE_EXCEEDED - 2

    我是Google云的新手，我正在尝试对其进行首次部署。我的第一个部署是RubyonRails项目。我基本上是在关注thisguideinthegoogleclouddocumentation.唯一的区别是我使用的是我自己的项目，而不是他们提供的“helloworld”项目。这是我的app.yaml文件runtime:customvm:trueentrypoint:bundleexecrackup-p8080-Eproductionconfig.ruresources:cpu:0.5memory_gb:1.3disk_size_gb:10当我转到我的项目目录并运行gcloudprevie

  10. ruby-on-rails - Rails 5 Active Record 记录无效错误 - 2

    我有两个Rails模型，即Invoice和Invoice_details。一个Invoice_details属于Invoice，一个Invoice有多个Invoice_details。我无法使用accepts_nested_attributes_forinInvoice通过Invoice模型保存Invoice_details。我收到以下错误:(0.2ms)BEGIN(0.2ms)ROLLBACKCompleted422UnprocessableEntityin25ms(ActiveRecord:4.0ms)ActiveRecord::RecordInvalid(Validationfa

随机推荐