I am trying to format the user input in an InputField so that the input is formatted and then displayed back to the user, within the InputField.
InputField[ Dynamic[input],FieldSize->10]
where
If[StringMatchQ[input, NumberString],
NumberForm[ToExpression[input], DigitBlock -> 3,
NumberSeparator -> " "], "Enter a number"]
Is this possible?


