各位大侠有好用的控制edit控制输入的控件吗?(maskEdit太不方便了@_@) 限制深入内容(整形、float等等) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 int、float用currencyedit(rx系列)其它字符限制可以自己编函数限制字符 用EDIT就可以呀try strtofloat(edit1.text);exceptbegin application.messagebox('您的输入不正确,输入必须是数值!!','information',mb_iconinfromation+mb_ok); edit1.selectall; edit1.setfocus;end; 在exit事件中try strtoflat(edit.text);except showmessage('请输入合法的数据值');end;try strtoInt(edit.text);except showmessage('请输入合法的整型值');end; procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9', '.', char(8)]) then Key := #0;end; 用BDE连接SQL SERVER 2000在应用程序界面登录时出错,是怎么回事啊? C/S结构中如何实现服务端与客户端的同步,实现动态刷新 TAnimate控件的一个问题 自动运行程序的问题! 如何用代码让TABLE创建显示所须字段! 简单,为什么MDIFORM里的IMAGE不能满屏显示,求救 window api sendmessage 使用问题 两个问题:请作答谢谢! 简单的AT命令问题. 100分求助~~~~ 大家使用delphi6遇到这个问题没有 在delphi中,如何卸载vcl? 300分,请常炒股或是对泰阳证券网上股票交易分析系统有所了解的兄弟们进来看看
其它字符限制可以自己编函数限制字符
strtofloat(edit1.text);
except
begin
application.messagebox('您的输入不正确,输入必须是数值!!','information',mb_iconinfromation+mb_ok);
edit1.selectall;
edit1.setfocus;
end;
try
strtoflat(edit.text);
except
showmessage('请输入合法的数据值');
end;try
strtoInt(edit.text);
except
showmessage('请输入合法的整型值');
end;
begin
if not (Key in ['0'..'9', '.', char(8)]) then
Key := #0;
end;