求助

Question

作业问题希望帮忙~  
建两个test框，键盘输入数据，每个框输入5个数据，要求像输入cdkey一样的模式，一个框满后自动输入下一个~~~~~在线等~~~~~~~

Answer 1

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Length(Trim(Edit1.Text)) >= 5 then Edit2.SetFocus;
end;
两个edt的MaxLength都设为5;

Answer 2

设置Edit的MaxLength ，然后按照下面操作
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if  Length(Trim(Edit1.Text))=Edit1.MaxLength then
    Edit2.SetFocus;
end;procedure TForm1.Edit2Change(Sender: TObject);
begin
  if Length(Trim(Edit2.Text))=Edit2.MaxLength then
    Edit3.SetFocus;
end;
类推

Answer 3

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  I : Integer;
  s:string;
begin
  s:=Edit1.Text;
  for I:=1 to Length(s) do
   begin
    if S[I] in ['0'..'9'] then
      if i=5 then
         edit2.SetFocus;
   end;
end;