怎么使memo中不能输入汉字？

Question

怎么使memo中不能输入汉字？

Answer 1

在它的OnKeyPress事件中处理，不接受ACSII码大于127的字符:if Ord(key)>128 then
   key:=#0;

Answer 2

只好再来一遍了！procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
   WChar: WideChar;
begin
   WChar := WideChar(Key);
   if WChar > #127 then Key := #0;
end;to  iairong(小鸟 : 别忘了给分哟！：）

Answer 3

http://expert.csdn.net/Expert/topic/1795/1795760.xml?temp=.9597742

Answer 4

必须先把它转化成WideChar字符才行！

Answer 5

在memo的onkeydown事件中
 if key>127 then
    key:=0;

Answer 6

奇怪了，我在Delphi+98下不行，在2000+Delphi7就行了，Venda(浪子) ，不好意思啊，冤枉你了。！