delphi三十六之编辑篇

".": 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);

查看本文来源