OSXでEnterキーを押したときのFiremonkeyサウンド

Question

Delphi XE8、Firemonkeyマルチデバイスフォームを使用しています。

パスワード入力用に設定された標準のTEditでは、ユーザーがEnterキー（OSX）を押したときにデフォルトの警告音を止められません。Windowsはうまく動作します。

私はKeyDownイベントとkeyUpイベントイベントに次のように設定しようとしました：

procedure TfrmMain.txtPasswordPromptKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); 
begin 
    if (Key = vkReturn) and (btnPasswordPromptGo.Tag = 0) then begin 
    Key := vkNone; 
    KeyChar := #0; 
    btnPasswordPromptGoClick(sender); 
    end; 
end; 

procedure TfrmMain.txtPasswordPromptKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); 
begin 
    if (Key = vkReturn) and (btnPasswordPromptGo.Tag = 0) then begin 
    Key := vkNone; 
    KeyChar := #0; 
    end; 
end; 

音はまだOSX上で果たしています。誰もこれをやめる方法を知っていますか？

Answer 1

キー値にvknoneを使用しないで、結果を0に設定しないでください。ビープ音が鳴りません。

procedure TfrmMain.txtPasswordPromptKeyDown(Sender: TObject; 
    var Key: Word; var KeyChar: Char; Shift: TShiftState); 
begin 
    if (Key = vkReturn) and (btnPasswordPromptGo.Tag = 0) then begin 
    Key := 0; 
    end; 
end; 

またロブが述べたように、あなたは、戻りが発生したときに実行するボタンをtrueにあなたのデフォルトのプロパティを設定することができます。これを行うと、キャリッジリターンを食べるコードは必要ありません。