線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1995
推到 Plurk!
推到 Facebook!

怎樣消除鍵盤煩人的咚咚聲?

答題得分者是:Jasonwong
cancer
高階會員


發表:58
回覆:319
積分:190
註冊:2004-07-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-01-17 10:34:56 IP:211.75.xxx.xxx 訂閱
各位好,客戶反應程式很多地方,按鍵會產生咚冬聲,心都煩了,請問 Delphi 程式要怎樣消除咚咚聲?
這不是電腦設定的問題,因為同一台電腦跑別家寫的程式,不會有咚咚聲。客戶要求在 TDBEdit 按 Enter 能有按 TAB 的焦點移動效果,所以元件加入了這個功能,但按 Enter 會有咚咚聲,而按 TAB 卻沒有,有點奇怪,麻請幫忙解決。
Jasonwong
版主


發表:49
回覆:918
積分:558
註冊:2006-10-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-01-17 11:33:00 IP:211.75.xxx.xxx 未訂閱
[code delphi]
if key = #13 then
begin
key:=#0;
end; [/code]

------
http://www.cobbler.tw

聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心
傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
編輯記錄
Jasonwong 重新編輯於 2011-01-16 20:33:21, 註解 無‧
cancer
高階會員


發表:58
回覆:319
積分:190
註冊:2004-07-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-01-18 12:31:39 IP:211.75.xxx.xxx 訂閱

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

------------------------------------
您好,的確可以變靜音,但是,還有別的方法嗎?我的程式碼是寫在元件裡面的 VK_RETURN then
begin
Key := 0;
PostMessage(Handle, WM_KEYDOWN, VK_TAB, 0);
end;
有時候元件佈置好之後,程式員會在 OnKeyPress 加入程式碼,消音放在元件本身的 KeyPress,他永遠不會判斷出 #13,好像不太好,又不可能針對畫面每個元件的 OnKeyPress 做消音動作,我的畫面有一、兩百個這樣的元件。
bugmans
高階會員


發表:95
回覆:322
積分:188
註冊:2003-04-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-01-20 07:50:06 IP:114.24.xxx.xxx 未訂閱
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
cancer
高階會員


發表:58
回覆:319
積分:190
註冊:2004-07-31

發送簡訊給我
#5 引用回覆 回覆 發表時間:2011-01-24 15:53:11 IP:211.75.xxx.xxx 訂閱

===================引 用 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 的問題,不是作業系統的問題。
cancer
高階會員


發表:58
回覆:319
積分:190
註冊:2004-07-31

發送簡訊給我
#6 引用回覆 回覆 發表時間:2011-02-23 14:11:18 IP:211.75.xxx.xxx 訂閱
試過不同方法,只能改放在  OnKeyPress 事件中,才不會有咚咚聲。
系統時間:2017-10-24 1:07:54
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!