This block only inserts more than one letter, but it works for most purposes:
<mx:TextInput textInput="if (event.text.length > 1) event.preventDefault()"/>
and for the spark:
<s:TextInput change="if (event.operation is PasteOperation) (event.target as SkinnableTextBase).text = '' " />
source share