Delphi Memo中禁止汉字

在memo里面的OnKeyPress里面加入


if Key>#127 then   Key:= #0;

即可！！！

转载于:https://www.cnblogs.com/rogee/archive/2010/09/20/1832023.html