按下回车为什么总会“铛”的一声响？？？(1分)

麻

麻村小子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-13

• #1

我写了一段代码：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;

为什么当按下回车的时候总会“铛”的一声响？怎么解决？

 

F

fangfei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-13

• #2

我也有同感，不知道怎么解决，关注

 

L

lw86

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-13

• #3

这样试试
if key=#13 then
begin
edit2.setfocus;
key=#0;
end;

 

麻

麻村小子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-13

• #4

接受答案了.