| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/5/23 16:19:16 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 在DBGrid中当输入的数过大时，我想让光标停留，不让它往下继续录入数据。 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/23 22:41:32 | ||||
| 1楼： | // if key=#13 then { 判断是按执行键} if not (ActiveControl is TDbgrid) Then Begin { 不是在TDbgrid控件内} key:=#0; perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件} end else if (ActiveControl is TDbgrid) Then{是在 TDbgrid 控件内} begin With TDbgrid(ActiveControl) Do begin if length(Dbgrid1.SelectedField.AsString)>3 then showmessage('asdg'); end; end; 你再改改！我想大至是这样的。我的delphi坏了不能调试 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/23 22:43:11 | ||||
| 2楼： | 忘了告诉你应该写在 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 的事件下面 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
