如何对EDIT 控件执行只能输入字符或只能输入数字, form1.edit1keydown(...)begin if not key in (48..57) then key=0;end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 只能输入数字:procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (key in ['0'..'9']) then key:=#0;end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);var I: Integer;begin if not TryStrToInt(S, I) then Key := #0;end; 轻松得分,关于winexec调用16位程序后的控制 Tquery查询得到的浮点结果如何控制小数点位数? 谁有已经打包好的水晶报表客户端的程序?在线等待 怎样截获数据包? 再发一帖,应该有人能帮忙~ 今晚夜战toolbar2.Top:=66;不成功,大家看一下,有分的 MIDAS调用失败 谁有vclzip2。22的注册码+源程序? soundbug,谢谢你,请说啊 dbgriedeh 数值列如何显示6位小数 如何让我的程序在另一个程序启动时同时启动? delphi6到底出了几个补丁了?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then key:=#0;
end;
var
I: Integer;
begin
if not TryStrToInt(S, I) then Key := #0;
end;