重分，如何让maskedit控件可以显示与输入整数与小数，要有对小数点的智能感知！

[wuxuan]

1.能实现只输入数字与小数点;
2.输入小数点自动跳转到小数点后；
3.如果整数位规定为4位，但是我只输入一位时，自动为个位数;
4.小数位也是如此.

在线等待，多谢指点，马上结贴.


[e-mail]

[xzhifei]

整数部分可无限制输,小数部分只能输入,你可自己修改一下：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
s:set of char;
i:integer;
begin
s:=['.',#8,'0'..'9'];
i:=pos('.',edit1.text);
if i>0 then
s:=s-['.'];
if (i>0)and(i=length(edit1.text)-2) then //可任意控制-2,-3....
begin
key:=#0;
exit;
end;
if not (Key in s)then
Key := #0;
end;

[xzhifei]

对不起，看错了，我以为是TEdit呢

[wuxuan]

有没有maskedit的控制呢？

[smilelhh]

maskedit1.editmask:= '###.00;1;_' //小数点后为二位其它类推