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

Question

我正在使用TReplaceDialog以及以下内容来捕获启动对话框的键，但是当我使用它时，Windows 8.1继续使用“Ding”。我怎么能阻止那个钟声？我曾尝试搞乱Form KeyPreview，但仍然得到了这个声音。使用ShortCut（Ctrl-R）和弹出菜单项“pupuFindReplaceText”

相同

另外，当我使用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;