请教在form上用回车键使组件获得焦点的问题

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN: Perform(WM_NEXTDLGCTL, Ord(Shift = [ssShift]), 0);
  end;
end;   

Answer 1

lable在程序运行的时候本身是不能过的焦点的，而button可获得焦点
你放上lable时程序失去作用就是这个原因

Answer 2

因为 TButton 可以 TabStop 而 TLabel 不能，修改一下你的代码

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
//草草写写
var
  J: Integer;
begin
  if Key <> #13 then Exit;
  J := TWinControl(Sender).TabOrder; //没有必要判断//都是你自己赋值事件
  if J < ControlCount then TWinControl(Controls[J]).SetFocus;
end;