在dbGrid表格里面跳转

最新推荐文章于 2021-12-28 10:01:08 发布

hmtqiuqiu

最新推荐文章于 2021-12-28 10:01:08 发布

阅读量326

点赞数

分类专栏：其他

本文链接：https://blog.youkuaiyun.com/hmtqiuqiu/article/details/47207389

版权

其他专栏收录该内容

13 篇文章

订阅专栏

[delphi]
procedure TfrmStaff.wdbgStaffKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then
  begin
    if wdbgStaff.SelectedIndex < wdbgStaff.FieldCount-1 then
      wdbgStaff.SelectedIndex := wdbgStaff.SelectedIndex+1
    else
      wdbgStaff.SelectedIndex := 0;
   end;
end;
[/delphi]