delphi - メモで Ctrl-F を使用して「チャイム」音を無効にする

Question

私はTReplaceDialogと以下を使用してキーをキャッチしてダイアログを起動していますが、Windows 8.1は使用すると「Ding」になり続けます。どうすればそのチャイムを止めることができますか? Form KeyPreview をいじってみましたが、それでもチャイムが鳴ります。ポップアップ メニュー項目「pupuFindReplaceText」でショートカット (Ctrl-R) を使用する場合も同様です。

また、タブを使用してダイアログ内の「テキストの検索」編集から「テキストの置換」編集に移動すると、チャイムが鳴ります。それとも、これは単に 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;