我有两个edit键当我在一个edit键按了enter后，可以对另一个edit进行编辑，应该怎么做

Question

我有两个edit键当我在一个edit键按了enter后，可以对另一个edit进行编辑，应该怎么做

Answer 1

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

Answer 2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=vk_Return
     then edit2.SetFocus;
end;

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then 
    selectnext(ActiveControl,True,True);    
end;
焦点移至TabOrder比当前大1的控件上

Answer 4

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

Answer 5

if key#13 then edit2.setfocus;

Answer 6

楼上的稍有疏漏！
该是这样
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
edit2.SetFocus;
end;
--------------------------------------------
 　　　　　　　　　　　　　 ,%%%%%%%,
 　　　　　　　　　　　　 ,%%/\%%%%/\%,
 　　　　　　　　　　　　,%%%\c "" J/%%,
 　 %.　　　　　　　　　 %%%%/ D　L \%%%
 　 `%%.　　　　 __　　　%%%%　　_　|%%%
 　　`%%　　　.-'　`"~--"`%%%%(=_Y_=)%%'　~~~
 　　 //　　.'　　 `.　　 `%%%%`\7/%%%'____
 　　((　　/　　　　 ;　　　`%%%%%%%'____)))
 　　`.`--'　　　　 ,'　 _,`-._____`-, 热爱生活 不爱美女 关注大众 无视权贵 一奋青

Answer 7

to  mars_han(ChanelNo.5) 
请注意：是#13 而不是13，两者相差很多

Answer 8

addition:一定要将keypreview属性设置为true

Answer 9

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=VK_RETURN then
    begin 
      Edit2.Enabled:=True;
      Edit2.SetFocus;
    end;
        
end;