DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: snarv12
今日帖子: 9
在线用户: 15
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 jacky_2001 (金武) ★☆☆☆☆ -
普通会员
2004/6/7 11:59:58
标题:
怎么让edti里面只能输入整数或浮点数 浏览:953
加入我的收藏
楼主: 如题!

----------------------------------------------
金武
作者:
男 willing (willing) ★☆☆☆☆ -
禁用账号
2004/6/7 12:31:59
1楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
按此在新窗口浏览图片
作者:
男 fox7899 (fox7899) ★☆☆☆☆ -
盒子活跃会员
2004/6/7 12:32:02
1楼: 看看前几天的帖子,搜索一下,
----------------------------------------------
-
作者:
男 jacky_2001 (金武) ★☆☆☆☆ -
普通会员
2004/6/7 15:01:42
2楼: 对willing (willing) 兄的帮助表示感谢~~按此在新窗口浏览图片
----------------------------------------------
金武
作者:
男 wangzhaozhao (探无止境) ★☆☆☆☆ -
普通会员
2004/6/7 17:23:18
3楼: var
  consolStyle,s20Style,s40Style:DWORD;

begin
........
.......

  consolStyle:=GetWindowLong(edit1.Handle, GWL_STYLE);
  SetWindowLong(edit1.Handle, GWL_STYLE, consolStyle or ES_NUMBER);
  s20Style:=GetWindowLong(eedit2.Handle,GWL_STYLE);
  SetWindowLong(eedit2.Handle,GWL_STYLE,s20Style or ES_NUMBER);

----------------------------------------------
Jack Wang
作者:
男 scan666 (scan666) ★☆☆☆☆ -
盒子活跃会员
2004/6/7 19:18:49
4楼: 赞同willing
----------------------------------------------
按此在新窗口浏览图片
作者:
男 cchenbo (暗恋嫦娥) ★☆☆☆☆ -
普通会员
2004/6/7 19:54:00
5楼: if key in ['0'..'9','.',#13,#8,#9] then
   Edit1.readonly:=false
else 
   Edit1.readonly:=true;
----------------------------------------------
我很菜不要拿鸡蛋砸我.
我也希望成为大虾
我很笨,但我不傻!希望大侠们多多帮助~~~~
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行66.40625毫秒 RSS