捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
盒子资源分类大树
另一种方法使Edit只接收数字
关键字：数字 Edit SetWindowLong
来　自：原创
平　台：Win9x,Win2k/NT,WinXP 下载所需：0 火柴
深浅度：初级 完成时间：2004/2/25
发布者：oiwin 发布时间：2004/2/25
编辑器：DELPHI6 语　　种：简体中文
分　类：科学 下载浏览：797/12873
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
程序代码:
procedure TForm1.FormCreate(Sender: TObject);
var
 fstyle: dWord;
begin
 fstyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
 SetWindowLong(Edit1.Handle, GWL_STYLE, fstyle or ES_NUMBER)
end;
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论26条 当前显示最后6条评论
yixuefeng 2004/12/18 9:56:38
procedure TFrm_gasstation_box.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
if not (key in['0'..'9'])  then
key:=#0;
end;
就是不能输入特殊字符如何解决
nbadjack 2005/1/7 21:31:53
兄第们啊，有关光输入数字，也不要KeyPress中限制其他控制键的使用啊，比如，你输错了，也要DEL来处理
jsyzzjp 2005/1/31 13:42:44
 其实可以换一种方式实现的。

就是利用异常处理的方式来处理。

  首先定一个浮点数H

  给它一个初始值（在程序开始的时候）然后这样
 在EditChange(Sender: TObject)事件中添加如下代码
 try
   h:= strtofloat(edit.text);
   
  except
  
   edit.Text :=floattostr(h);
   
  end;

 所有的问题都能解决。
chenboy 2005/3/21 0:36:19
procedure TFrm_gasstation_box.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
if not (key in ['0'..'9',Chr(8),'.'])  then
key:=#0;
end;
就是不能输入特殊字符如何解决?在集合中加入就好了,Chr(8),回删键,呵呵!
jf2004 2005/4/28 11:36:51
if (key in ['0'..'9',#46,#8]) then
   begin
    if key=#46  then
       begin
       if  pos('.',edit3.Text)>0  then
       key:=#0;
       end;
   end
else
   key:=#0;
可以用小数点啊 并且限制只能有一个小数点的啊 
你也可以再加上小数点后的位数啊
hackering 2005/5/7 19:53:26
赫赫，我更喜欢用trystrtofloat
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表