如何切换到下一个dbedit，并在最后一个dbedit上按回车时切换到下一条记录？

Question

在一个窗体中，有几十个dbedit，我回车时就切换到下一个dbedit。并在最后一个dbedit上按回车时切换到下一条记录。
我的代码如下：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Perform(WM_NEXTDLGCTL,0,0); 
  end;
end;
procedure TForm1.DBedit23KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    datamodule1.ADOQuery.Next;
    if datamodule1.ADOQuery.Eof then
    showmessage('已经是最后一条记录了！');
  end;
end;
这样总是咚咚地响，怎么才能不响呀？
如果我在窗体的FormKeyPress事件中加入key:=#0;　就不响了，可是就切换不到下一条记录了。
如何既不响又能切换到下一条记录呀？

Answer 1

为什么响我就不知道,不过觉得你的代码有点问题
 { if Key = #13 then
  begin
    datamodule1.ADOQuery.Next;
    if datamodule1.ADOQuery.Eof then
    showmessage('已经是最后一条记录了！');
  end;}
  if Key = #13 then
  begin
    datamodule1.ADOQuery.Post;
    if datamodule1.ADOQuery.Eof then             //先判断是不是最后一条记录
    begin
      showmessage('已经是最后一条记录了！');
      Abort;
    end;
    datamodule1.ADOQuery.Next;
  end;

Answer 2

这样Form1就能响应KeyPress的消息，要不在非聚集的情况下是不会响应的。
你捕捉消息进行处理也可以

Answer 3

楼主那样判断可以的，只不过提示会切换到最后一条记录就弹出来  if Key = #13 then
  begin
    with atamodule1.ADOQuery do
      if Eof then             
        ShowMessage('已经是最后一条记录了！');
      else
        Next;
  end;