在edit 中，如何按enter 键 代替 Tab键

Question

在不知道 下一个edit是哪个，也不知道有几个Edit  情况下,也不知道下一个控件是什么,如何操作,

Answer 1

dosmove控件看看他的源代码就知道了。具体下在，google艘

Answer 2

onkeypress里
if key=#13 then 
begin
  key:=#0;
  SelectNext(ActiveControl,true,true);
end;

Answer 3

在KeyDown事件中， 
if key = #13 then
    key := Tab键的ASCII

Answer 4

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Ord(Key) = 13) then
    selectNext(Activecontrol,true,true);
end;

Answer 5

procedure Tone.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Panel.Enabled then begin
    case key of
      13, 40: begin
          perform(wm_nextdlgctl, 0, 0);
        end;
      38: begin
          perform(wm_nextdlgctl, 1, 0);
        end;
    end;
  end;
end;
然后设置窗体属性 keypreview:=true  一切OK