如何消除Edit控件按回车键后‘叮’的响声。(100分)

D

donkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-01

• #1

 

C

Chenlili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-01

• #2

把你系统的声音关掉。

 

W

wvy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-01

• #3

在 edit 控件的 onkeypress 事件中编写
if key =#13 then
begin
key := #0;
end;

 

小

小刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-01

• #4

你检索一下，有好多答案

 

L

lop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-01

• #5

拨掉你音箱的电源插线。

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-01

• #6

as wvy

 

李

李崇文

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-01

• #7

我看就Wvy说了点有用的

 

B

bodhisattva

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-01

• #8

呶,这就是你要的!


procedure TFormMain.FormKeyPress(Sender: TObject; var Key: Char);
var
MYForm: TCustomForm;
begin
if (Key = #13) And Not(ActiveControl is TMemo) then
begin
MYForm := GetParentForm( Self );
if not (MYForm = nil ) then
SendMessage(MYForm.Handle, WM_NEXTDLGCTL, 0, 0);
Key := #0; // 起到这个作用!
end;

end;

 

D

donkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-19

• #9

多人接受答案了。