首页 相关文章 回车代替Tab移动输入焦点

回车代替Tab移动输入焦点

  很多时候,我们都用Tab键来移动输入焦点,但是有些情况下,比如输入用户名后还需要输入密码,由于习惯性,你有可能在输入用户名后就按了一下回车,希望到密码框里继续输入,可是却按了确定键,报告密码错误,所以使用以下代码来让回车键代替TAB键下移一个控件:

  在窗体上放两个控件,Edit1和Edit2,再加入下列代码拦截击键:

  

Procedure TForm1.Edit1KeyPress(Sender:Tobject;Var Key:Char);Beginif key=#13 then{ 判断是按执行键}if not (ActiveControl is TDbgrid) ThenBegin { 不是在TDbgrid控件内}key:=#0;perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}end elseif (ActiveControl is TDbgrid) Then{是在 TDbgrid 控件内}beginWith TDbgrid(ActiveControl) Doif Selectedindex(FieldCount-1) thenSelectedindex:=Sele...[ 查看全文 ]

2016-02-19 标签:

回车代替Tab移动输入焦点的相关文章

手机页面
收藏网站 回到头部