请问如何让程序禁止具体某个键的输入 在OnKeyPress事件中处理就行了,OnKeyDown时处理已经晚了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginif (key<'0') or (key>'9') thenKey:=char(0);end; 先找到那个键的代码,然后针对onkeypress使得key:=#0; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not(key in ['0'..'9']) then Key:=#0;end; 除了0..9,其他都不能输入 delphi编程后的icon问题 TMS DBAdvGrid怎么设置多行选择? 走過路過的都來看看!!!!!怪!! 一个SQL语句,如何将表CPXX中的字段(名称,品牌,型号)写入到表DGD中的对应字段(名称,品牌,型号)? 祝D版的兄弟姐妹们国庆快乐(Borland中国&游民)---散分之三 怎样对时间进行运算. 关于文件传输,两台电脑之间会接收不正常,只能收到一部分,几KB,本地则正常 感谢Q中朋友们的KYF Delphi书评? delphi 的停靠问题2 菜鸟问题!请各位大虾帮忙急! 这样做独立的数据库应用文件?
begin
if (key<'0') or (key>'9') then
Key:=char(0);
end;
begin
if not(key in ['0'..'9']) then
Key:=#0;
end;
除了0..9,其他都不能输入