要使EDIT组件中输入完毕后按ENTER后跳到另一个EDIT组件如何编程或设置？

Question

要使EDIT组件中输入完毕后按ENTER后跳到另一个EDIT组件如何编程或设置？

Answer 1

procedure edit1keypress(key: char);
begin
    if key = #13 then
        edit2.setfocus();
end;

Answer 2

将form的keypreview:=true procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
            key:=#0;
            keybd_event(vk_tab,mapvirtualkey(vk_tab,0),0,0);
        end;
    end;

Answer 3

楼上的最好加个判断，因为楼主是要EDIT所以先判断是不是要的控件：将form的keypreview:=true procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
    begin
      if (Sender is TCustomEdit)or(Sender is ...) then
      if key=#13 then
        begin
            key:=#0;
            keybd_event(vk_tab,mapvirtualkey(vk_tab,0),0,0);
        end;
    end;

Answer 4

procedur TForm1.Edit1KeyDown((Sender: TObject; var Key: Char);
begin
   if key=VK_RETURN then
      Edit2.setFocus;
end;