我想在屏幕显示一个字符之前,先用程序将之截获,判断如果不是想显示的字母,则不让Tedit显示它! onkeypress中if not(key in [#48..#57]) and (key<>#8) then key:=#0; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 假设你要屏蔽字母a 那么procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if key=char('a') then key:=char(0);end; 异常处理 CONSOLE和GUI双模式 禁止鼠标对窗体左右下的边拉伸和收缩是FORM的那个属性? 关于c/s结构的问题100分在线 导出到excel DELPHI V.S VB ! Delphi按钮的图标 又是sql方面的问题:( 可否以设置属性的方式使在dbgrid里地数据以密文形式显式? to: yijun2000(关于teechart) 自动选择列表框 有关使用Dbgrid的DrawColumnCell的新问题!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=char('a') then
key:=char(0);
end;