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()を持っていましたが、ロブ・ケネディが指摘するように、GetKeyState() is a much better option)のようなものを使用することによって、けれども手動でチェックを処理する必要があります。
• 代わりにアクションを使用してください。あなたのフォームにTActionListを入れてダブルクリックし、アクションを追加してCTRL-Sのホットキーを設定してください。保存コードをOnExecuteイベントハンドラに追加してください。これは私が信じる「適切な」方法です。

これは役に立ちます。

Answer 2

デルファイコードはdisable the system beepです。

Answer 3

なぜアクションを使用しないのですか？それがショートカットを処理する最善の方法です。