2020年10月30日
Delphi FMX下Edit限制只能输入数字和一个小数点
摘要： VCL下可以在OnKeyPress事件下这样写 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','.',#8]) then key:=#0; if (key= 阅读全文
posted @ 2020-10-30 11:28 大明星啊 阅读(380) 评论(0) 推荐(0)