在TEidt的KeyDown事件中，添加以下代码：if not Key in [0..9] then Key := #0;
setwindowlong(edit1.Handle,gwl_style,getwindowlong(edit1.Handle,gwl_style) or es_number);
