记账软件版1楼: 哪位大哥告诉我只能评比kerpress事件啊

2楼: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0
end;

[8D] 如畅销进销存软件

3楼: 你想达到什么效果啊。。。。

4楼: dateedit中输入非法日期值会出错，我想屏蔽可手动输入功能

5楼: 不知道你想干什么？
如果你是想在某个时候不执行其中的代码,可以加个逻辑变量

6楼: 如果我想只能输入有有效数字，屏蔽其他字符有该怎么实现？

记账软件版7楼: if key in[＇＇0＇＇..＇＇9＇＇,＇＇+＇＇,＇＇-＇＇,＇＇.＇＇] then//把不要的去掉
begin
key:=#0; //按键无效
end;

8楼: 土豆one ,yf168的方法都不错。小弟先谢了。