如何控制Edit框的输入不能为中文

Question

如何控制Edit框的输入不能为中文？？？只能是数字或英文字母？？？请各位指教谢谢，万分感谢。。

Answer 1

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

Answer 2

这样输入的 中文还是会跳出个中文选择 框,能否让他不 跳出来 ,就是相当于在EDIT的IMEMode属性值设置为imclose时的 输入 一样 ;但是用EDIT的IMEMode属性值设置为imclose当输入法转换时就失效了

Answer 3

去找找api函数吧，好象有相关的api函数吧

Answer 4

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if Not (key in ['0'..'9','a'..'z',#8]) then
      begin
        ShowMessage('错误');
        key := #0;
      end;