Question

DELPHI限制文本框不能输入中文

procedure TForm1.usernameKeyPress(Sender: TObject;);
begin
if Not (Key in ['A'..'Z','a''..'z'0'..'9',#8,#13,#46]) then
Key:= #0;
end;
end;

我从网上抄的，但是不能运行。
procedure TForm1.usernameKeyPress(Sender: TObject;);
howlshadow 和龙地龙的答案都无法用

这行报错

Answer 1

你这个也不是不能输入中文啊。
是只能输入：大小写字母、数字、退格键、回车、delete键。
其他的符号也是能输的。

in 里面还需要丰富其他的东西。

选中你的编辑框、找到他的onkeypress事件，把函数内的代码贴进去。

完毕。

Answer 2

在窗体上放一个Edit,设置OnKeyPress事件,复制下面代码:

procedure TForm1.Edit1KeyPress(Sender: TObject;var Key:Char);
begin
if Key>=#160 then Key:= #0;
end;

Answer 3

抄也要改改，引号逗号都打乱了，当然不能运行

procedure TForm1.usernameKeyPress(Sender: TObject;);
begin
if Not (Key in ['A'..'Z','a'..'z','0'..'9',#8,#13,#46]) then
begin
Key:= #0;
end;
end;

Answer 4

ord()函数试试当大于127就不能输入中文