如何在EDIT控件中设置输入数据的固定长度

Question

如何在EDIT控件中设置输入
数据的固定长度
如11位最长为12位数

Answer 1

  设置edit.maxlength属性为12

Answer 2

  还要报错？
  
  procedure form1.edit1keypress(sender:tobject;var key:char)
  beign
    if length(edit1.text)>12 then showmessage('长度超过12');
  end;
  

Answer 3

我找到了，不用写代码，
在属性中有一个MaxLength,写上值就可以了

Answer 4

  你不是还要报错吗？我开始2楼的帖子就这样说了。
  如果你要报错的话，写在keyup事件里就好了。
  
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if length(trim(edit1.Text))>12 then
 begin
  showmessage('长度超过12');
  edit1.text:= copy(edit1.text,1,12);
 end;
end;