这是怎么回事？(5分)

Z

zhangweizw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-10

• #1

我在窗口的Edit控件中编了程序，回车时自动跳转到下一个Edit
procedure Tfrm_zsf.Edit_hmKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit_dz.SetFocus;
end;
程序运行没有问题，但是每次回车，计算机的喇叭都要鸣一声，怎样消除这声音啊

 

L

lldhz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-10

• #2

没试过！
回车跳到下一个EDIT你只要把回车转成TAB就可以了
procedure Tfrm_zsf.Edit_hmKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
perform(WM_NEXTDLGCTL, 0, 0)
end;
试试看！

 

X

xminsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-10

• #3

这样都行:
if key=#13 then
begin
key=#0;
edit_dz.SetFocus
end;

 

Z

zhangweizw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-10

• #4

key=#0代表什么?

 

Z

zhangweizw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-10

• #5

加入key:=#0;以后的确不再发出声音了,但我不知道是为什么
谁能给我解释一下吗?