5,388
社区成员
发帖
与我相关
我的任务
分享如何消除onkeydown中的beep声
if key=VR_RETURN then
begin
key:=0
...
end;
发现这样是不行的。。。。请教怎么消除声音？
onkeydown的声明是：
procedure OnKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
用key:=#0也是不行的，key是word。。。迷惑了
begin
key:=0
...
end;
发现这样是不行的。。。。请教怎么消除声音？
onkeydown的声明是：
procedure OnKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
用key:=#0也是不行的，key是word。。。迷惑了
...全文
请发表友善的回复…
发表回复
Larkinboy 2007-04-26
- 打赏
- 举报
就是在想为何onkeydown为何不可以消声
nevergetwin 2007-04-26
- 打赏
- 举报
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=Char(VK_Return) then
begin
edit2.Text:=Edit2.Text+'s';
Key:=Char(0);
end;
end;
//用KeyPress函数吧
begin
if Key=Char(VK_Return) then
begin
edit2.Text:=Edit2.Text+'s';
Key:=Char(0);
end;
end;
//用KeyPress函数吧
Larkinboy 2007-04-26
- 打赏
- 举报
就是要取消beep声
橘子香水 2007-04-25
- 打赏
- 举报
操作系统内设置的。
Larkinboy 2007-04-25
- 打赏
- 举报
越来越没有氛围了
rainstormmaster 2007-04-25
- 打赏
- 举报
把PC喇叭拆下也可
Larkinboy 2007-04-25
- 打赏
- 举报
不要分数？
zaza_bbface 2007-04-25
- 打赏
- 举报
嗯，捂住耳朵就OK啦
Larkinboy 2007-04-25
- 打赏
- 举报
掩耳盗铃
wintergoes 2007-04-25
- 打赏
- 举报
装上声卡驱动就没了。
