摘要: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in [ '.',#8]) then key:=#0; //只能输入小数点end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in [ ' 0'..'9',#8]) then key:=#0; //只能输入数字end;procedure TForm1.Edit1Key 阅读全文
posted @ 2012-11-02 11:38 许小东 阅读(687) 评论(0) 推荐(0) 编辑