- 博客(1)
- 收藏
- 关注
转载 Delphi中限制文本框(TEdit)只能输入数字
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);var edt: TEdit; str, strL, strR: string; p: integer;begin // 获取当前文本内容, 注意要去掉选中部分(因为会被改写). edt := TEdit(Sender); str :
2016-02-26 13:52:35 5767
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人