在memo里面的OnKeyPress里面加入
if Key>#127 then Key:= #0; if Key>#127 then
阅读背景：
Delphi Memo中禁止汉字_weixin_33724046的博客
来源：互联网
分享到：
