C ccat Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-08 #1 edit1,edit2两控件,我想在edit1中输入后Enter转到edit2输入框,就在edit1中加入 onkeypress 事件代码,结果功能是实现了,为何回车时总有报警声??
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-08 #2 先设form1.Keypreview:=TRUE 然后ONKEYPRESS时 Procedure Tform1.FormKeyPress(Sender: Tobject; var Key: Char); begin If key = #13 then Begin Key:= #0; Perform(Wm_NextDlgCtl,0,0); end; end;
先设form1.Keypreview:=TRUE 然后ONKEYPRESS时 Procedure Tform1.FormKeyPress(Sender: Tobject; var Key: Char); begin If key = #13 then Begin Key:= #0; Perform(Wm_NextDlgCtl,0,0); end; end;
G gy87sz Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-08 #3 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If key = #13 then Edit2.SetFocus end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If key = #13 then Edit2.SetFocus end;
T TDA2822M Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-15 #5 不用:先设form1.Keypreview:=TRUE 直接: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin Key:=#0; Edit2.SetFocus; end; end;
不用:先设form1.Keypreview:=TRUE 直接: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin Key:=#0; Edit2.SetFocus; end; end;
C ccat Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-22 #6 如TDA2822M可以,请教wjiachun多余两句有何用?
N necat Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #7 perform(Wm_NextDlgCtl,0,0); //将焦点移到下一个控件。也就是相当于TAB键的功能。
H huangjin6133 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #8 有时可能是机器设置的问题,与程序没有关系!
N necat Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #9 就是onkeypress中代码的原因,加上Key := #0;这一句就可以避免你说的报警音。