如何按enter键跳到下一个DBEdit框（按Tab Order)

Question

if Key = #13 then
  Perform(WM_NEXTDLGCTL , 1, 0);

Answer 1

if Key =#13 then
  dbedit2.setfocus;

Answer 2

1.设Form的Preview 为True,设Edit1,Edit2...EditN 的TabOrder分别为0,1...n-12. 在form的KeyPresss中添加下列代码  if key=#13 then
  begin
      Key := #0;
      SelectNext(ActiveControl,True);
  end;

Answer 3

先设置 self.keyPreview:=True;Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char);
Begin
   if key=#13 then 
     Begin 
      key:=#0; 
     Perform(WM_NEXTDLGCTL,0,0);
     end
end;

Answer 4

sorry,1. Form.KeyPreview2. SelectNext(ActiveControl,True,True);

Answer 5

KeyPreview设置为true；
在onkeypress中：
if key=#13 then
  PostMessage(Handle, WM_NEXTDLGCTL, 0 ,0);

Answer 6

在  keydown  事件中
  if  key=vk_return  then
edit2.setfocus;

Answer 7

谢谢诸位，请关注我的另一个问题：为什么在DBEdit中按enter会自动添加一条空的新记录