2012年2月7日
edit 只能输入数字
摘要： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (key in ['0'..'9','-',#8]) then key:= #0; if (key='0') and ((Edit1.Text='') or (Edit1.Text='-')) then key:= #0; if (key='-') and (Edit1.Text<>'') then key 阅读全文
posted @ 2012-02-07 10:19 Unique.Y 阅读(244) 评论(0) 推荐(0)