P
pcc_mmz1
Unregistered / Unconfirmed
GUEST, unregistred user!
给Delphi 的Master hand：
请问如何使ＥＤＩＴ组件只能输入数字？
可不可以通过修改ＶＣＬ的方式实现？
谢谢！
请问如何使ＥＤＩＴ组件只能输入数字？
可不可以通过修改ＶＣＬ的方式实现？
谢谢！
M
mlzhou
Unregistered / Unconfirmed
GUEST, unregistred user!
在edit的onkeypress事件中加入
if not(Key in['0'..'9']) then
begin
Key:=#0; //清空
ShowMessage("此处只能输入数字");
end;
把这段代码加进去就行了
if not(Key in['0'..'9']) then
begin
Key:=#0; //清空
ShowMessage("此处只能输入数字");
end;
把这段代码加进去就行了
C
china_peng
Unregistered / Unconfirmed
GUEST, unregistred user!
to mlzhou：
如果copy来得就无法识别，不信你试，
自己改最好，简单的方法是用maskedit
如果copy来得就无法识别，不信你试，
自己改最好，简单的方法是用maskedit
P
pcc_mmz1
Unregistered / Unconfirmed
GUEST, unregistred user!
To china_peng:
请问如何改，恳请示下。
请问如何改，恳请示下。
M
mlzhou
Unregistered / Unconfirmed
GUEST, unregistred user!
确实是这样。我以前还没注意过这个问题。谢谢了。[
]
]
H
hamsoft
Unregistered / Unconfirmed
GUEST, unregistred user!
有现成的构件，不要问我
H
hb_wshsh
Unregistered / Unconfirmed
GUEST, unregistred user!
如果不想改VCL
在OnChange事件中写代码：
var
x:integer;
begin
try
if trim(edit1.text)<>'' then
x:=strtoint(edit1.text);
except
showmessage('只能输入数字');
edit1.clear;
end;
end;
在OnChange事件中写代码：
var
x:integer;
begin
try
if trim(edit1.text)<>'' then
x:=strtoint(edit1.text);
except
showmessage('只能输入数字');
edit1.clear;
end;
end;
C
china_peng
Unregistered / Unconfirmed
GUEST, unregistred user!
我只说可以，我没改过，我用的Developer Express系列控件
ExpressQuantumGrid中的dxCurrencyEdit可解决，窑洞有带原码的，自己参考一下
ExpressQuantumGrid中的dxCurrencyEdit可解决，窑洞有带原码的，自己参考一下
W
w.th
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么不用maskedit?
M
micro73
Unregistered / Unconfirmed
GUEST, unregistred user!
用maskedit就可以了，何必想那么多？
C
china_peng
Unregistered / Unconfirmed
GUEST, unregistred user!
程序员之家
将编辑控件修改为只能输入指定精度的数字
http://www.delphiboy.com/cgi-bin/doc/datacontent.php?no=321&PHPSESSID=73c7354074a1322882fb0590adcdb68e
将编辑控件修改为只能输入指定精度的数字
http://www.delphiboy.com/cgi-bin/doc/datacontent.php?no=321&PHPSESSID=73c7354074a1322882fb0590adcdb68e
W
wenhong
Unregistered / Unconfirmed
GUEST, unregistred user!
控制其中OnKeyDown进行检测不就行了吗。
P
pcc_mmz1
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢各位。很久以前的问题，今天一起给分。
C
cowbird
Unregistered / Unconfirmed
GUEST, unregistred user!
maskedit怎么用？