delphi中关于Edit的问题

在下面的代码中可以实现Edit1.Text中输入6个字母或数字时Edit2.SetFocus,那么我想让Edit2.text中输入6个字母时实现Edit3获得焦点，有没有简单一点的方法，谢谢大家了！！！

procedure TForm2.Edit1Change(Sender: TObject);
var
  str:string;
  i:integer;
begin
  str:='';
  str:=Edit1.Text;
  if (Length(str)>0) then
  if (not((str[Length(str)])in['0'..'9','A'..'Z',#8]))or(Length(str)>6) then
  begin
    Edit1.Text:=LeftStr(Str,Length(str)-1);
  end;
  Edit1.SelStart:=Length(Edit1.Text);
  if Length(str)>=6 then
  Edit2.SetFocus;
end;

---

没有，方法同楼主

---

看来没说清楚，我的意思是Edit2Change这个事件不用写也可以实现，即用Edit1Change的事件直接调用，应该怎么改

---

只能这样判断每个字符和长度,然后设置其他控件的焦点

---

引用

看来没说清楚，我的意思是Edit2Change这个事件不用写也可以实现，即用Edit1Change的事件直接调用，应该怎么改

那就写一个通用的Onchange事件，每个edit都指向它，但是要在公共事件中做一些判断处理，因为要判断当前的edit和要聚集的edit

---

选中你要操作的Edit控件,打开属性框的事件标签,在onchange事件右边的下拉框选中Edit1Change
这样他的change事件就绑定到Edit1的了
然后代码里
str:=Edit1.Text ;

改成
str := TEdit(sender).Text;

---