一个简单的光标跳转的问题，在线给分！

Question

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

Answer 1

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

Answer 2

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

Answer 3

将窗口上的确认按钮的DEFAULT属性设为FALSE，再采用楼上方法
祝你成功

Answer 4

先将窗体的keypreview设置为trueprocedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  selectnext(activecontrol,false,false);
End;

Answer 5

在edit1、2、3...的KeyPress事件中加入
 if Key = #13 {Was it the enter key?}
    then begin {convert enter to a tab}
    selectNext(ActiveControl as tWinControl, true, true);
    key := #0; {Wipe out the enter keystroke}
  end;

Answer 6

标准的做法应该是通过按“TAB”键跳转。
将Edit1的TabStop设为：TRUE，TabOrder设为：0；
  Edit2的TabStop设为：TRUE，TabOrder设为：1；
  Edit3的TabStop设为：TRUE，TabOrder设为：2；
  Edit4的TabStop设为：TRUE，TabOrder设为：3；
就可以很方便实现光标跳转。

Answer 7

1.先将窗体的keypreview设置为true
2.设置各个控间的TabOrder
  Edit1的TabOrder为0 Edit2为1，以此类推
3.在窗体的KeyDown中写入一下代码
   If (Key = Vk_Return) Then
   Begin
      Perform(WM_NextDlgCtl, 0, 0);
      key := vk_Tab;
   End;

Answer 8

赶快把分数给kwhei(阿辉)吧。 :-) .........

Answer 9

谢谢各位的发言！
经我调试成功的是xiaojiuzhou(笑九州) 
不过ENTER键的default属性要设为：FALSE
继续学习！

Answer 10

在OnKeyDown中寫
if Key = VK_RETURN then 
SelectNext(TWinControl(Sender), True, True);