L lljyy Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-11 #1 有1button,当焦点置其之上时，如何使按ENTER键与单击鼠标左键功能相同。
Z zxb200 Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-11 #3 本來就是，當button上有焦點時，按enter鍵與鼠标左键都將執行button的onclick事件。
G glasses Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-11 #4 如果焦点在其上，那么Enter自然就和鼠标左键的功能一样。
W webcom Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-11 #5 当焦点置button之上时，按ENTER键与单击鼠标左键都会触发OnClick事件
L lljyy Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-14 #9 我把问题具体化以下： 一登陆窗体，上有LABEL两个（用户明，密码），EDIT两个（输入用户名，密码）， BUTTON两个（确定，取消)。我的意思是焦点从EDIT1（用户名），转移到EDIT2（密码） 再转移到BUTTON1（确定），如何按ENTER键与单击鼠标左键（进入主窗体）功能相同。
我把问题具体化以下： 一登陆窗体，上有LABEL两个（用户明，密码），EDIT两个（输入用户名，密码）， BUTTON两个（确定，取消)。我的意思是焦点从EDIT1（用户名），转移到EDIT2（密码） 再转移到BUTTON1（确定），如何按ENTER键与单击鼠标左键（进入主窗体）功能相同。
T tomol Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-21 #10 还是不太明白，不过要是想用Enter代替其他键，可以这样 在Form的KeyPress里 if Key=#13 then begin key:=#0; perform(WM_NEXTDLGCTL,0,0); end;
还是不太明白，不过要是想用Enter代替其他键，可以这样 在Form的KeyPress里 if Key=#13 then begin key:=#0; perform(WM_NEXTDLGCTL,0,0); end;
K kingdeezj Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-21 #11 你可以在Button1的OnClick事件中写上代码，不用管Button1上按Enter事件。
X xfliwu Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-21 #12 你可能要这个: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = chr(13) then edit2.SetFocus; end; procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin if key = chr(13) then button1.SetFocus; end; procedure TForm1.Button1Click(Sender: TObject); begin form2.show; end;
你可能要这个: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = chr(13) then edit2.SetFocus; end; procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin if key = chr(13) then button1.SetFocus; end; procedure TForm1.Button1Click(Sender: TObject); begin form2.show; end;
U upfeed Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-09 #13 如果是想用enter来代替tab键就用[tomol]介绍的方法， 不过要先将Form的KeyPreview属性改成true
