完 完颜康 Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-19 #2 在onKeyPress事件里写 if not (key in['0'..'9']) and(key <>#8) then//数字和退格以外的建，一律为空 key:=#0;
