表单输入自动换行问题。(50分)

B

beelee0801

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #1

我想设计一个问卷录入表，当某一个文本框输入的内容达到指定的数据长度时自动跳到
下一个输入框，请问如何实现？

 

R

Rozan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #2

是不是可以在onchange事件里写。

 

T

tanyg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #3

在form 上放两个edit，在edit1的onchange 中写下:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(edit1.text)=10 then
edit2.SetFocus ;
end;

 

W

white0212

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #4

设置EDIT1 的 MAXLENGTH 为你想要的长度 10 ，
当EDIT1中的字符长度为10时，就会自动跳到下一个编辑框了！

 

B

beelee0801

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-09

• #5

多人接受答案了。