摘要：
我自己写的： procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0' .. '9', '.', '-', #8, #10, #13]) then begin Key := #0 阅读全文
posted @ 2016-10-31 18:10
del88
阅读(246)
评论(0)
推荐(0)
摘要：
阅读全文
posted @ 2016-10-31 17:53
del88
阅读(203)
评论(0)
推荐(0)
浙公网安备 33010602011771号