procedure TfrmMain.AllEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
s1 : string;
s2 : string;
i : integer;
begin
s1 := (Sender as TEdit).Name;
s2 := (Sender as TEdit).Text;
i := strtoint(copy(s1 , 5 , 1));
if (key = 13) and (length(s2) > 0) then
begin
if (i = 1) then Edit2.SetFocus;
if (i = 2) then Edit3.SetFocus;
if (i = 3) then Edit4.SetFocus;
if (i = 4) then Edit5.SetFocus;
if (i = 5) then Edit6.SetFocus;
if (i = 6) then Edit7.SetFocus;
if (i = 7) then Edit8.SetFocus;
if (i = 8) then btn1.Click;
end;
end;
主要是 从if(i = 1)到if(i = 7)这几行是否还可以简化代码？

TEdit(FindComponent('Edit' + IntToStr(i))).Setfocus;

不如设置好Edit的taborder， 然后回车键转Tab键
if (key = 13) and (length(s2) > 0) then
key := VK_TAB;

用控件数组多好，还比对什么控件名啊，真麻烦。