捕获CTRL + S时如何摆脱窗口声音？

Question

在我的应用程序中，当我按下CTRL + S ，我的表单（启用了键预览）捕获并保存文档。 但是当焦点在例如编辑控件中时，我会听到恼人的“丁”声，或者一般来说，听到窗口声音。 我该如何避免这种声音？

这是我的表格捕获这个关键事件......

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  C: String;
begin
  if not fChanging then
    Modified;
  if ssCtrl in Shift then begin
    C:= LowerCase(Char(Key));
    if C = 's' then begin
      DoSave;
      Key:= 0; //Tried this but didn't work
    end else
    if C = 'c' then begin
      //Copy selected item(s)
    end;
  end;
end;

PS - 是否有更标准的方法来捕获这些事件？ 因为我确定我做错了什么，而且我确信我还有另一种方法可以在没有声音的情况下获得这些关键事件。

Answer 1

有几件事：

• 尝试将您的代码放入FormKeyPress而不是FormKeyDown 。 这将使Key := 0; 代码工作...你需要手动处理CTRL检查，通过使用像GetKeyState()这样的东西（我原来在这里有GetAsyncKeyState() ，但正如Rob Kennedy指出的那样， GetKeyState() is a much better option) 。
• 请改用Action。 在TActionList上TActionList一个TActionList ，双击它，添加一个动作并将它的热键设置为CTRL-S。 将保存代码添加到OnExecute事件处理程序中。 我相信这是“正确”的方式。

希望这可以帮助。

Answer 2

这是一些禁用系统蜂鸣声的 Delphi代码。

Answer 3

你为什么不使用炬力？ 这是处理快捷方式的最佳方式。