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

Question

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

Answer 1

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

Answer 2

1、设置Form 的KeyPreview属性为True
2、在Form的 OnKeyPress事件中写代码如下：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    SelectNext(ActiveControl, True, True);
    //或者写成 Perform(WM_NEXTDLGCTL, 0, 0);
    key := #0;
  end;
end;

Answer 3

在onkeypress事件中
 
  if Key=#13 then
    edit2.SetFocus;

Answer 4

1、设置Form 的KeyPreview属性为True
2、在Form的 OnKeyPress事件中写代码如下：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = vk_return then
    SelectNext(ActiveControl, True, True);
end;

Answer 5

1、设置Form 的KeyPreview属性为True
2、在Form的 OnKeyPress事件中写代码如下：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var i,j:Integer;
    t:TEdit;
begin
  if key = vk_return then begin
    j:=1;
    for i:=0 to ComponentCount-1 do begin
      if(Components[i] is TEdit) then
        if TEdit(Components[i].Focused then j:=i+1;
      end;
    if j=Component then J:=J-1;
    TEdit(Components[j]).SetFocus;
  end;
end;
    SelectNext(ActiveControl, True, True);
end;

Answer 6

上面多了一些代码，把这些去掉：
    SelectNext(ActiveControl, True, True);
end;

Answer 7

在Edit框onkeypress事件中
 
  if Key=#13 then
    edit2.SetFocus;

Answer 8

设置Form 的KeyPreview属性为True
在Form的 OnKeyPress事件中写代码如下：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = vk_return then
   begin
    perform(wm_nextdlgctl,0,0);
    key:=0;
   end;
end;

Answer 9

1、设置Form 的KeyPreview属性为True
2、在Form的 OnKeyPress事件中写代码如下：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    ActiveControl:=FindNextControl(ActiveControl,True,True,False);
end;

Answer 10

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    keybd_event(VK_TAB, 0, 0, 0);
    keybd_event(VK_TAB, 0, WM_KEYDOWN, 0)
  end;
end;

Answer 11

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if KEY=VK_RETURN THEN
     EDIT2.SetFocus;end;