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

答案:4 悬赏:30 手机版

解决时间 2021-02-07 19:37

提问者网友：鐵馬踏冰河
2021-02-07 12:15

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 和龙地龙的答案都无法用

这行报错

最佳答案

五星知识达人网友：胯下狙击手
2021-02-07 13:46

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

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

全部回答

1楼网友：鸽屿
2021-02-07 16:24

输入是不太好控制，在onchanging事件里加代码吧

2楼网友：患得患失的劫
2021-02-07 14:52

抄也要改改，引号逗号都打乱了，当然不能运行 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;

3楼网友：往事隔山水
2021-02-07 14:42

你这个也不是不能输入中文啊。是只能输入：大小写字母、数字、退格键、回车、delete键。其他的符号也是能输的。 in 里面还需要丰富其他的东西。选中你的编辑框、找到他的onkeypress事件，把函数内的代码贴进去。完毕。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息