穷人求助：怎样编辑Mask

Question

我想在一个文本框里只输入数字，用了MaskEdit,它的模板用起来挺好的，但只输入数字的目的没达到，请高手们指点我这菜鸟。
分数不多，略表心意........

Answer 1

用edit在onkeypress事件中写：
procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'9',#8]) then Key := #0;
end;

Answer 2

mask的位数应该与edit的允许长度一致
000099;0;_
对应6位的控制，前面4为必须输入，后面2位可输可不输