如何实现：当文本框输入长度达到6时，执行过程 edit2Exit

Question

edit1.Text输入长度等于2时,跳转到edit2.Text;
当文本框输入长度达到6时，执行过程 edit2Exit,如何实现?

Answer 1

主要是在编辑框的onchang事件中实现
procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(edit1.Text)=6 then
   edit2.SetFocus;
end;procedure TForm1.Edit2Change(Sender: TObject);
begin
if length(edit2.Text)=6 then
   //执行过程edit2exit,不知你这是什么过程
end;

Answer 2

用Onchang事件,检测字符数,达到要求时跳转.
procedure TForm1.Edit1Change(Sender: TObject);
begin
   if length(edit1.Text)>=2 then  edit2.SetFocus ;
end;procedure TForm1.Edit2Change(Sender: TObject);
begin
   if  length(edit2.Text)>=6 then  edit2Exit ;
end;

Answer 3

keypress事件中写代码;
edit1的
begin
if length(Text) >=2 then  
edit2.SetFocus ;
end;
edit2的
begin
if length(Text) >=6 then  "你的edit2Exit"; 
end;

Answer 4

可以了，原來是要
procedure Tform1.Edit2Change(Sender: TObject);
begin
if length(Edit1.Text)=6 then
   edit2Exit(self);                     -----要加上(self) 困扰了好久！
end;end.
procedure Tform1.edit2Exit(Sender: TObject);
begin
...........end.结贴了！