| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/11/19 14:45:05 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我是个初入道者，现有一个小问题向各位请教！ 例如，在一个窗体上有多个文本输入项（如姓名，年龄，住址。。。），不知道怎样才能通过回车达到让这些输入项依次输入的目的呢？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/19 15:11:40 | ||||
| 1楼： | 在edit1的keypress中输入： if key=#13 then //如果回车 begin key=#0; //这样避免回车之后发出一声响； edit2.setfocus; //edit2获得焦点 end; 以此类推。 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/19 15:12:02 | ||||
| 1楼： | 姓名:Edit1.text 年龄:Edit2.text 假如要想在 EDIT1.TEXT 按回车到 EDIT2.TEXT 只需在 ONPRESS 事件中加入 if key=#13 then Edit2.text.setfous; 就可以了。 ---------------------------------------------- http://lahu.126.com |
|||||
| 作者： |
|
2003/11/19 15:17:24 | ||||
| 2楼： | 这样是行啊，但是如果TEDIT太多了的话。每个都写。那不累死？？能不能就在窗体上写一段代码，请各位GGJJ指点 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/19 15:25:21 | ||||
| 3楼： | 就是写一个函数或者进程，一样需要调用！呵呵， ---------------------------------------------- 我是一只菜菜鸟，想要飞却飞不高！ |
|||||
| 作者： |
|
2003/11/19 16:41:56 | ||||
| 4楼： | var bx : array[0..7] of Tedit; i : byte; begin for i := 0 to 7 do begin Bx[i] := Tedit.Creat(Owenr); Bx[i].tag := i + 1; //重要的是這一步 bx[i]. parent := self; Bx[i].height := Bx[i].Width := Left := Top := OnKeyDown := BxKeyDown; show; end; end; procedure BxKeyDown(Sender : TObject; Key : Word); begin if key = 13 then if Tedit(Sender).tag < 8 then Bx[Tedit(Sender).tag-1].setfoce; end; ---------------------------------------------- ——混世生 |
|||||
| 作者： |
|
2003/11/19 22:00:25 | ||||
| 5楼： | 下面的代码你写在一个任一个edit的onKeyPress中,其它的Edit.OnkeyPress事件都设置为Edit1KeyPress即可: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key=#13) then begin key:=#0; Self.perform(WM_NEXTDLGCTL,0,0); end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/19 22:07:38 | ||||
| 6楼： | 真先进，为什么大家都爱搞这种操作呢？ ----------------------------------------------  
|
|||||
| 作者： |
|
2003/11/20 0:08:31 | ||||
| 7楼： | 5楼的好， 学习 ---------------------------------------------- ——混世生 |
|||||
| 作者： |
|
2003/11/22 15:43:58 | ||||
| 8楼： | 呵呵，用控件不是更好啊！ DOSMOVE这个控件就可以实现这个功能啊！ ---------------------------------------------- 
|
|||||
| 作者： |
|
2003/11/22 15:50:48 | ||||
| 9楼： | 《DOSMOVE这个控件就可以实现这个功能啊！ 》 小弟太苯 不懂！也想不通！ ----------------------------------------------
|
|||||
| 作者： |
|
2003/11/25 16:42:47 | ||||
| 10楼： | 好啊，谢谢大家了哦，我一直也在弄这个问题，5555555555555555请教一下呢》我是自学，老是觉得没有进步，请大虾指点！！谢谢 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
