这怎么写啊？(50分)

O

okbill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-15

• #1

我在EDIT1。TEXT或是DBEDIT1。TEXT输入数字，当输入超过6个位数时自动跳到EDIT2。TEXT
的输入框内，并显其第六位的数字，即在EDIT1。TEXT输入123456当它输入7时已不在EDIT1。TEXT
而显示在EDIT2。TEXT中了

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-15

• #2

这句话，就可以简单的实现功能。
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>=6 then Edit2.SetFocus;
end;

 

O

okbill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-15

• #3

接受答案了.