| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 数据库专区 斑竹:liumazi,waterstone | |||||
| 作者： |
|
2004/5/1 14:52:14 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 出售进销存(pos收银)软件源码 http://item.taobao.com/item.htm?id=9909187456 |
|||||
| 作者： |
|
2004/5/1 18:48:43 | ||||
| 1楼： | 记得不太准确,改变dbgrid的属性SelectedIndex, if DBGrid1.SelectedIndex < DBGrid1.FieldCount Inc(DBGrid1.SelectedIndex); 建议你用使用Ehlib组件,它其中的一个控件是DBGridEh有一个OptionEh属性的EnterAsTab设置为True即能达到同样目的,还不用编程,实在方便. ---------------------------------------------- - |
|||||
| 作者： |
|
2004/5/3 10:54:39 | ||||
| 2楼： | 哈哈，看看下面的code 是实现如何用Enter代替Tab的 procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then {if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL,0,0); end else} if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount - 1) then selectedindex := selectedindex + 1 else selectedindex := 0; end; 5555，今天没有饭吃，你请我吃哈！哈哈哈哈（开个玩笑） ---------------------------------------------- 人生在勤，不索何获！ |
|||||
| 作者： |
|
2004/5/5 14:11:06 | ||||
| 3楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 出售进销存(pos收银)软件源码 http://item.taobao.com/item.htm?id=9909187456 |
|||||
| 信息 |
| 登陆以后才能回复 |
