如题:也可以如果那个text框里输的不是1~9的数据添加时就出现提示错误。谢谢。
解决方案 »
- 100分求助!!!急急急急急急急急急急急急急急急急急
- 生成所有5位字母的排列要用一整天的时间吗?(P4 2.4G)
- 一个很值得研究的问题,感兴趣的进来看看
- 初学者为什么老是碰到怪问题?
- 一个涵数怎样返回一个数据集?
- 有lotus notes/domino高手吗?只要把你们的QQ留下,马上给100分,并且在线回答问题呀。
- 如何把WIN2000传真服务接收下来的TIF格式图片转成BMP?
- 那里有QuickReport3.62下载
- UnitLend.pas: Could not create output file 'UnitLend.dcu'
- 十万火鸡,如何捕获任意进程中的windows 控件的句柄,有赏
- 如何把excel文件自动转存为文本文件
- 浮点数(即实数)的转换问题?
if not (Key In ['1'..'9',#8]) then
Begin
//在这里写你要提示错误的信息
End
begin
if not (key in ['0'..'9',#8]) then
begin
key:=#0;
MessageBeep(1);
end;
end;
begin
if not (key in ['0'..'9',#8]) then
begin
key:=#0;
MessageBeep(1);
end;
end;
GetWindowLong(Edit1.Handle, GWL_STYLE) or
ES_NUMBER);