主题：怎么判断文本框输入的是数字
tonlin
[专家分：0] 发布于 2010-06-12 21:06:00
怎么判断文本框输入的是数字
或者怎么设置只允许输入数字
回复列表 （共6个回复）
沙发
kingkey110 [专家分：0] 发布于 2010-06-14 08:53:00
方法一
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9','.'] ) then
begin
Key := #0;
Beep;
end;
end;
方法二
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
end;
end.
板凳
一叶归帆 [专家分：0] 发布于 2010-06-15 03:16:00
me.text2.locked=true/false或me.text2.Visible=true/false
3 楼
日红花操芙蓉 [专家分：0] 发布于 2010-06-15 10:43:00
onkeydown获取文本框值的长度，当为14的时候。可以调ajax方法但存在绑定数据问题，也可以直接调txtstuid的ontextchaege事件
4 楼
l874356932 [专家分：0] 发布于 2010-08-04 21:44:00
本人写了个基于delphi的小程序-木子淘宝助手V1.0
有兴趣的朋友可以关注下
木子淘宝助手V1.0操作极其简单，只需点击相应按钮即可获取热卖商品相关信息！
本软件开发目的是帮助大家更快捷的选购淘宝商品，本软件所精选的商品都是人全部是人气相对较高，成交量较大的商品！愿大家都能获得性价比最高的商品，争取多赢！
http://74717.cn/mztbzs.rar
5 楼
kuf41 [专家分：0] 发布于 2010-08-30 10:26:00
怎么判断文本框输入的是数字
var d1 : integer;
if TryStrToInt(Edit1.Text,d1) then XXX; //如果是整數,則XXX
6 楼
moke9 [专家分：30] 发布于 2010-09-02 08:28:00
你好.我是全职网赚工作者.
如果你有时间有电脑.
想在网络上创业.请联系我..
项目绝对真实.详情QQ空间资料
加盟请联系 QQ908889846
我来回复
您所在位置：