delphi - 在备忘录中使用 Ctrl-F 禁用“Chime”声音

Question

我正在使用 TReplaceDialog 和以下内容来捕获启动对话框的键，但是当我使用它时，Windows 8.1 会继续“叮”。我怎样才能停止那个铃声？我试过弄乱Form KeyPreview，但仍然得到那个提示。与弹出菜单项“pupuFindReplaceText”一起使用快捷方式 (Ctrl-R) 相同

此外，当我使用 Tab 从对话框中的“查找文本”编辑移动到“替换文本”编辑时，我会听到提示音。或者，这只是 8.1 的一个特性？

if Shift = [ssCtrl] then
begin
  if Char(Key) in ['F','f','R','r'] then
    puFindReplaceTextClick(Sender);
  Key:=0;
end else
begin
end;

Answer 1

而不是使用OnKeyDown，使用OnKeyPress：

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ^F then
  begin
    // Do something;
    Key := #0;
  end;
end;