编辑框问题 请问如何在编辑框内屏蔽掉小数点(句号),不是小键盘上的小数点。谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你可以试试,以下的代码:procedure checkinput(sender:Tobject;var key:word);begin if not (key in ['1'..'9','a'..'z','0',#13,#10,#8]) then key=:#0;end; Delphi TPerlregEx正则问题。 请Delphi前辈帮看看《TeeChart组件快速实现测井曲线显示》中的图像是如何实现的! 问一个INPUTBOX函数如何捕获到用户点击了CANCEL键的问题 关于多表外连接的问题 如何用代码去掉Paradox 表的密码,当然了,密码是知道的。 我忘了结帖被扣分了 请问在Delphi中可以调用VB写的控件吗? 该如何调呢? 超级简单问题:怎么获得系统时间? 急!!!请问谁有并口编程的资料,(寄存器定义,命令字,状态字格式等?)或相关的控件? 关于Paradox的问题 请帮忙 这段代码怎么改
procedure checkinput(sender:Tobject;var key:word);
begin
if not (key in ['1'..'9','a'..'z','0',#13,#10,#8]) then
key=:#0;
end;