一个关于MaskEdit的问题？

Question

如果你要求输入的是整数，比较好办设置EditMask为：9999;1;_即可保证输入的数据小于10000，如果要求小于750，只有在他的Change，KeyPress,Keydown等事件中判断他的值是否大于750。如果你的要求是小数的话，最好不要用MaskEdit，用一般的Edit控件然后，在相关的事件中判断处理即可。

Answer 1

使用Tedit，procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if length(edit1.text)=3 then// 
    if ((key<'1')or(key>'9')) then
       key:=#0;
end;

Answer 2

说明，本例是对Tedit输入的第四位进行控制，输入在0-9。