应 该 是 一 个 简 单 的 问 题，关 于 输 入 的

Question

onKeyPress中if key=#13 then SelectNext();
可以把窗体的KeyPreview属性设为true,统一处理按键

Answer 1

首先，Form的KeyPreview=true;然后在KeyPress这个事件中写代码，
procedure TManProForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
      if (ActiveControl is TEdit) then
      Perform(WM_NEXTDLGCTL,0,0);
  end;

Answer 2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Return then
    Perform(WM_NEXTDLGCTL,0,0);
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    Key := #0;
  end;
end;

Answer 3

按了回车以后，让要选中的Edit,TEdit.SetFocus

Answer 4

回车ascii为13(tab为9)
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
   edit2(or someone else).setfocus
end;

Answer 5

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
   edit2(or someone else).setfocus
end;