Delphi Memo中禁止汉字在memo里面的OnKeyPress里面加入if Key>#127 then Key:= #0; 即可！！！转载于:https://www.cnblogs.com/rogee/archive/2010/09/20/1832023.html