菜鸟问题：edit

Question

请问在edit控件中如何实现输入完毕后回车，就可以跳到edit2那边？

Answer 1

可以在输入完毕后
postmessage(handle,wm_keydown,vk_Tab,0);

Answer 2

把它的tab键和回车键转换一下就好了 
也就是 用 回车键代替tab建 

Answer 3

把它的tab键和回车键转换一下就好了???能否详细一点，如何转换？

Answer 4

procedure TF_yhzl.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      edit2.SetFocus;
    end;
end;

Answer 5

楼上的方法是可行的，但是如果有很多EDIT，总不可能都是写上面的代码吧，很不科学。是否在某个地方设置下，就可以实现回车代替tab？

Answer 6

procedure TF_yhzl.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      PerForm(WM_NEXTDLGCTL,0,0);
    end;
end;

Answer 7

procedure TfrmCusetomer.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case key of
      VK_RETURN:
      PerForm(WM_NEXTDLGCTL,0,0);
  end;
end;

Answer 8

procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      edit2.SetFocus;
    end;
end;

Answer 9

1、把窗体的KeyPreview 为TRUE
2、procedure TfrmCusetomer.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   PerForm(WM_NEXTDLGCTL,0,0);
    
end;
3、设置Edit 的Top

Answer 10

你把别的TEdit的OnKeyPress事件指向这一个不就可以了？