导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2004/6/7 11:59:58
标题:
怎么让edti里面只能输入整数或浮点数
浏览:953
加入我的收藏
楼主:
如题!
----------------------------------------------
金武
作者:
2004/6/7 12:31:59
1楼:
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
作者:
2004/6/7 12:32:02
1楼:
看看前几天的帖子,搜索一下,
----------------------------------------------
-
作者:
2004/6/7 15:01:42
2楼:
对willing (willing) 兄的帮助表示感谢~~
----------------------------------------------
金武
作者:
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
作者:
2004/6/7 19:18:49
4楼:
赞同willing
----------------------------------------------
作者:
2004/6/7 19:54:00
5楼:
if key in ['0'..'9','.',#13,#8,#9] then Edit1.readonly:=false else Edit1.readonly:=true;
----------------------------------------------
我很菜不要拿鸡蛋砸我. 我也希望成为大虾 我很笨,但我不傻!希望大侠们多多帮助~~~~