各位好，客戶反應程式很多地方，按鍵會產生咚冬聲，心都煩了，請問 Delphi 程式要怎樣消除咚咚聲？
這不是電腦設定的問題，因為同一台電腦跑別家寫的程式，不會有咚咚聲。客戶要求在 TDBEdit 按 Enter 能有按 TAB 的焦點移動效果，所以元件加入了這個功能，但按 Enter 會有咚咚聲，而按 TAB 卻沒有，有點奇怪，麻請幫忙解決。

[code delphi]
if key = #13 then
begin
key:=#0;
end; [/code]

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

編輯記錄

===================引 用 Jasonwong 文 章===================
[code delphi]
if key = #13 then
begin?
? key:=#0;
end; [/code]
?

------------------------------------
您好，的確可以變靜音，但是，還有別的方法嗎？我的程式碼是寫在元件裡面的 OnKeyDown 並非 OnKeyPress，因為遇到 VK_UP, VK_DOWN,VK_LEFT,VK_RIGHT 都要移動焦點到上一個或下一個元件，所以全部放在一起
if Key = VK_RETURN then
begin
Key := 0;
PostMessage(Handle, WM_KEYDOWN, VK_TAB, 0);
end;
有時候元件佈置好之後，程式員會在 OnKeyPress 加入程式碼，消音放在元件本身的 KeyPress，他永遠不會判斷出 #13，好像不太好，又不可能針對畫面每個元件的 OnKeyPress 做消音動作，我的畫面有一、兩百個這樣的元件。

HKEY_CURRENT_USER\Control Panel\Sound
將yes改成no

How can I turn off system beeps?
http://bubble.ro/How_can_I_turn_off_system_beeps.html

===================引 用 bugmans 文 章===================
HKEY_CURRENT_USER\Control Panel\Sound
將yes改成no

How can I turn off system beeps??
http://bubble.ro/How_can_I_turn_off_system_beeps.html

-----------------------------------------------------
bugmans 大，這樣應該是不行的，因為其他該聽到的聲音都會聽不到，控制台不應該由程式去設定，應該是由使用者去設定，我上面有描述說 "按 TAB 不會有咚咚聲，按 Enter 才有"，這表示是 Delphi 的問題，不是作業系統的問題。

試過不同方法，只能改放在  OnKeyPress 事件中，才不會有咚咚聲。