客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
procedure TfrmGoods_InfoAdd.edt_PriceKeyPress(Sender: TObject; var Key: Char);
var DotPos,Len:integer; begin DotPos:=pos('.',(Sender as TEdit).Text); Len:=length((Sender as TEdit).Text); if key in ['0'..'9',#8,'.','+','-'] then begin if (key in ['+','-']) then begin //只能在光标处于第一的位置，才能输入'+'或者'-' if ((Sender as TEdit).SelStart>0) then begin key:=#0; exit; end; //'+'，'-'互斥 if (pos('+',(Sender as TEdit).Text)>0) or (pos('-',(Sender as TEdit).Text)>0) then begin key:=#0; exit; end; end; if key in ['.'] then begin //只能输入一个'.' if (DotPos>0) then begin key:=#0; exit; end; //只能在'+','-'后面输入'.' if (pos('+',(Sender as TEdit).Text)>0) or (pos('-',(Sender as TEdit).Text)>0) then if ((Sender as TEdit).SelStart<=0) then begin key:=#0; exit; end; //小数点必须在最后两位 if (DotPos<=0) and ((Sender as TEdit).SelStart<Len-2) then begin key:=#0; exit; end; end; if key in ['0'..'9'] then //小数点后面最多两位 if (DotPos>0) and (DotPos<=Len-2) and ((Sender as TEdit).SelStart>=DotPos) then key:=#0 ; end else key:=#0; end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论