Delphi一行语句实现edit只能输入数字

SetWindowLong(edt_UserName.Handle,GWL_STYLE,

ES_NUMBER or GetWindowLong(edt_UserName.Handle,GWL_STYLE))