文本框问题2

Question

有2个文本框，怎么羊使第一个文本框内容满时（即当第一个文本框移到最后时，自动转入第二个文本框）！？

Answer 1

你一定设置了edit的maxlength吧if length(edit1.text) = edit1.maxlength then
  edit2.setfocus;做一个判断即可

Answer 2

什么叫满时?
得到edit1的最大长度(得设置),在Keypress里判断,如果输入的长度等于得到的长度则edit2.setfocus

Answer 3

还是用我这个，保准满意，你改一改就行了。
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Canvas.Font := Edit1.Font;
  if Canvas.TextWidth(Edit1.Text) + Canvas.TextWidth(
    Edit1.Text[1]) >= Edit1.Width then
    Edit2.SetFocus;
end;