2014年1月20日
Delphi中限制文本框(TEdit)只能输入数字
摘要： procedure Tform1.Edit1KeyPress(Sender: TObject;varKey: Char);varedt: TEdit;str, strL, strR:string;p: integer;begin // 获取当前文本内容, 注意要去掉选中部分(因为会被改写).edt := TEdit(Sender);str := edt.text;ifLength(edt.SelText) 0thenbegin strL := LeftStr(edt.text, edt.SelStart); strR := RightStr(edt.text, Length(edt.text. 阅读全文
posted @ 2014-01-20 12:58 麦麦提敏 阅读(1938) 评论(0) 推荐(0)