大家好:
在我的程序窗体Form1 上有一个Edit1 控件,我想在程序运行后,在向 Edit1 控件输入数据时,使Edit1 控件的text属性只能接受0-9之间的数据。请问我怎么实现这一想法????????????请大家指教!!!
在我的程序窗体Form1 上有一个Edit1 控件,我想在程序运行后,在向 Edit1 控件输入数据时,使Edit1 控件的text属性只能接受0-9之间的数据。请问我怎么实现这一想法????????????请大家指教!!!
begin
if not (key in ['0'..'9',#8,#83]) then key:=#0;
end;
begin
if not (key in ['0'..'9','.',#8,#83]) then key:=#0;
end;
strtofloat(edit1.text);
except
showmessage('只能输入数字');
end;