????简单问题,DBGridEh光标焦点移动问题????

lantianhf 2011-07-11 10:52:41
如何实现当光标age列的20处,如何实现回车后输入焦点自动跳到下一行的age 22处,如果已跳到最后一行的age 18 处再按回车就跳到第一行的age处了,用的是ADOQuery1,请问应该怎样写代码能满足这个要求???

id name age

1 王 20
2 李 22
3 张 18


...全文
150 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
onlyou13 2011-07-12
  • 打赏
  • 举报
回复
简单写了一下,不知道是不是你要的

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
if DBGrid1.DataSource.DataSet.RecNo = DBGrid1.DataSource.DataSet.RecordCount then
begin
DBGrid1.DataSource.DataSet.First;
end
else
begin
keybd_event(VK_DOWN, 0, 0, 0);
keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
end;
end;
end;
lantianhf 2011-07-12
  • 打赏
  • 举报
回复
自己解决了,楼上的两位没有实际参考意义!不过也谢了
jayqiang 2011-07-12
  • 打赏
  • 举报
回复
在事件中去处理吧!
山东蓝鸟贵薪 2011-07-12
  • 打赏
  • 举报
回复
设置焦点INDEX试试吧
lantianhf 2011-07-12
  • 打赏
  • 举报
回复
UP!

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧