如何在每个输入框中通过打回车键，进行切换呢

Question

如何在每个输入框中通过打回车键，进行切换呢

Answer 1

将Form1的KeyPreview设置为trueprocedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    SelectNext(ActiveControl,True,True);
end;

Answer 2

可以参考一下这个帖子
http://expert.csdn.net/Expert/topic/1875/1875528.xml?temp=.4162714

Answer 3

在每个输入框的OnKeyPress事件中检测回车符进行切换。
 procedure TForm1.Edit1KeyPress(Sender: TObject;
  var Key: Char);
 begin
   IF Key=#13 then Edit2.SetFocus;
 end;
 
 procedure TForm1.Edit2KeyPress(Sender: TObject;
  var Key: Char);
 begin
   IF Key=#13 then Edit3.SetFocus;
 end;
  
 ... ...

Answer 4

问题也太老了
if key=#13 then Perform(WM_NEXTDLGCTL, 0, 0);