热搜
您的位置:首页 >> 游戏

delphi三十六之编辑篇

2019年11月05日 栏目:游戏

".": if HasDot = 0 then Inc(HasDot) else delete(ls1, li, 1); //检查小数点

".": if HasDot = 0 then Inc(HasDot) else delete(ls1, li, 1); //检查小数点

"-": if (not HasDigit and (HasReduce = 0)) then Inc(HasReduce) else delete(ls1,li,1); //负数

else

delete(ls1,li,1); ////删除错误字符

end;

end;

If hasdigit then

text:=ls1

else

text:=ls + "0";

SelStart:=lk; //恢复光标位置

end;

end;

4.使ComboBox进入时自动下拉列表

//在ComboBox的OnEnter事件中书写如下代码

SendMessage(ComboBox1.handle, CB_SHOWDROPDOWN, Integer(True), 0);

查看本文来源

北京京城皮肤医院汪晨
杭州丽都白癜风医院在线咨询
贵阳哪家医院治疗癫痫病比好
贵阳治疗盆腔炎费用
银川整形美容
  • 友情链接
  • 合作媒体