Отключить звук "Chime" с помощью Ctrl-F в заметке

Question

Я использую TReplaceDialog и следующее, чтобы перехватить ключ для запуска диалога, но Windows 8.1 продолжает использовать "Ding", когда я его использую. Как я могу остановить этот звонок? Я пробовал возиться с Form KeyPreview, но все равно получаю этот перезвон. То же самое для использования ShortCut (Ctrl-R) с элементом всплывающего меню "pupuFindReplaceText"

Кроме того, я получаю перезвон, когда использую вкладку для перехода от редактирования "Найти текст" к редактированию "Заменить текст" в диалоговом окне. Или это просто особенность 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;