关于TEdit的beep的问题(100分)

D

danceofwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-23

• #1

在TEdit控件上敲回车时，总是会有讨厌的BEEP响声，尤其是模拟Tab键转移焦点时，特烦人，请教各位，如何去除？

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-23

• #2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;

 

L

liuly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-23

• #3

前卫，你太狠了吧！？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-23

• #4

反正是不让“大家”出声就行……

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-23

• #5

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13)then
Key:=#0;
end;

要是象前卫兄的，也输入不进去东西了

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-23

• #6

原来搞错了，不过我的原意就是Pipi.写的那种.

 

D

danceofwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-24

• #7

多人接受答案了。