怎樣消除鍵盤煩人的咚咚聲? |
答題得分者是:Jasonwong
|
cancer
高階會員 發表:58 回覆:319 積分:190 註冊:2004-07-31 發送簡訊給我 |
|
Jasonwong
版主 發表:49 回覆:931 積分:581 註冊:2006-10-27 發送簡訊給我 |
|
cancer
高階會員 發表:58 回覆:319 積分:190 註冊:2004-07-31 發送簡訊給我 |
===================引 用 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 做消音動作,我的畫面有一、兩百個這樣的元件。 |
bugmans
高階會員 發表:95 回覆:322 積分:188 註冊:2003-04-12 發送簡訊給我 |
|
cancer
高階會員 發表:58 回覆:319 積分:190 註冊:2004-07-31 發送簡訊給我 |
===================引 用 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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |