D delphilike Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-29 #1 使用两个dbedit 如何在dbedit1输入完成,即按下enter键时输入焦点自动切换到dbedit2上呢?
张 张剑波 Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-29 #2 setfocus(dbedit2)可以 form.activecontrol:=dbedit2也可以。
L LawrenceZhang Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-29 #3 Form KeyPreview : True procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If Key=#13 then Begin key:=#0 ; Perform(WM_NEXTDLGCTL,0,0); End; end;
Form KeyPreview : True procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If Key=#13 then Begin key:=#0 ; Perform(WM_NEXTDLGCTL,0,0); End; end;