delphi中关于Edit的问题

Question

在下面的代码中可以实现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;

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

也可以在onKeyPress中做
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
beginif not( key in ['0'..'9','A'..'Z',#8]) then
   key:=#0;
if Length(Edit1.Text)>=5 then
  Edit2.SetFocus;
end;

Answer 5

那怎么把下面的Edit获得SetFoucs 

Answer 6

给你写了个例子,首先你要把要SetFoucs的edit 编号(我用6个,从1~6)
编号的方法中用tedit的tag属性,然后仍用你的判断程序:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,strutils;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure EditChange(Sender: TObject);
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.EditChange(Sender: TObject);
var
  i:integer;
  currbutton,nextbutton:tedit;
  str:string;
begin
currbutton :=  tedit( sender);
 str:='';
  str:=currbutton.Text;
  if (Length(str)>0) then
  if (not((str[Length(str)])in['0'..'9','A'..'Z',#8]))or(Length(str)>6) then
  begin
    currbutton.Text:=LeftStr(Str,Length(str)-1);
  end;
  currbutton.SelStart:=Length(currbutton.Text);
  if Length(str)>=6 then
begin
if currbutton.tag=6 then
   nextbutton:=edit1
  else
  for i:=0 to ComponentCount-1 do
  begin
    if  Components[i].Tag=currbutton.tag+1 then
    begin
        nextbutton:=tedit( Components[i]);
        break;
    end;
  end;
  nextbutton.SetFocus;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to ComponentCount-1 do
  begin
    if  Components[i].Tag<>0 then
        (Components[i] as Tedit).OnChange:=EditChange;
  end;
end;end.

Answer 7

如果你的Edit的Name有规律可循，可参考如下代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  sTmpName: string;
begin
  sTmpName := TEdit(Sender).Name;
  if not( key in ['0'..'9','A'..'Z',#8]) then
    key:=#0;
  if Length(TEdit(sender).Text) >= 5 then
    (FindComponent('Edit'
                  + IntToStr( StrToInt(RightStr(sTmpName, Length(sTmpName) - 4)) + 1 ))
      as TEdit
    ).SetFocus;
end;procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var
  sTmpName: string;
begin
  sTmpName := TEdit(Sender).Name;
  if not( key in ['0'..'9','A'..'Z',#8]) then
    key:=#0;
  if Length(TEdit(sender).Text) >= 5 then
    (FindComponent('Edit'
                  + IntToStr( StrToInt(RightStr(sTmpName, Length(sTmpName) - 4)) + 1 ))
      as TEdit
    ).SetFocus;
end;end.