一个数字和字符的问题 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if pos(Key,'0123456789')=0 then key:=#0 ;end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在Win32面板中选择TUpDown Updown1.Associate :=Edit1;如此,在edit中只能输入数字和小数点等字符了。 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if Key in ['a'..'z'] then ShowMessage('aa');end;不妨是以下! 跟大家讨论一个常用的功能 dxDBTreeView 显示的问题 求一递归算法? 我用DELPHI7怎么能把以前用的QUICKREPORT做的打印表编辑修改啊 大家看看我做的报表输出DLL,是不是对你有用? 对字符串字段时行排序问题,如能解决,另附100分献上。 问题很菜,请勿见笑 这只是个简单的数据库操作问题吗? 初学者请教! 如何暂停一个程序并继续? 即: 如何把“控制权”交给系统并重新获得? 请教高手:在Delphi6中,怎么用Socket实现远程数据的存取???急!急!急! 一个关于取数据的速度问题
Updown1.Associate :=Edit1;如此,在edit中只能输入数字和小数点等字符了。
begin
if Key in ['a'..'z'] then ShowMessage('aa');
end;
不妨是以下!