一个关于MaskEdit的问题？

[bubble]

我想使MaskEdit控件中的某一位只能输入数字，且输入的数字小于某一个值，我该怎样实现。望各位大侠不吝赐教！

[Wingsun]

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

[zxh1972]

使用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;

[zxh1972]

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