能不能让edit只能输入中文和英文字母

Question

如题~~~谢谢~~~

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if  (Key in ['0'..'9']) then
    Key := Chr(0);
end;

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if  (Key in ['0'..'9']) then  Key := Chr(0);
end;
反着写就可以了

Answer 3

这个只是去掉数字吧，我要的是只能是‘a’到‘z’或者'A'到'Z'或者中文，其它标点也不能输入。

Answer 4

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in ['a'..'z','A'..'Z'])  then key := key
  else
    key := chr(0);
end;

Answer 5

//可以输入退格、字母、汉字
注：繁体字未试procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key  in ['a'..'z','A'..'Z',#8,#126..#255])  then key := chr(0);
end;

Answer 6

完美可以追求,不能强求,当你搞好一切,你试试在程序的外部CTRL+C复制一段数字或其它符号,然后在程序的Edit1右键选择贴粘,一样什么都可以复制进去.

Answer 7

完美可以追求,不能强求,当你搞好一切,你试试在程序的外部CTRL+C复制一段数字或其它符号,然后在程序的Edit1右键选择贴粘,一样什么都可以复制进去.

Answer 8

完美可以追求,不能强求,当你搞好一切,你试试在程序的外部CTRL+C复制一段数字或其它符号,然后在程序的Edit1右键选择贴粘,一样什么都可以复制进去.

Answer 9

完美可以追求,不能强求,当你搞好一切,你试试在程序的外部CTRL+C复制一段数字或其它符号,然后在程序的Edit1右键选择贴粘,一样什么都可以复制进去.

Answer 10

完美可以追求,不能强求,当你搞好一切,你试试在程序的外部CTRL+C复制一段数字或其它符号,然后在程序的Edit1右键选择贴粘,一样什么都可以复制进去.