只输入数字或字母

procedure TFrm_KhbNewView.edt_cl_mbqssKeyPress(Sender: TObject;  var Key: Char);
begin
   if not(key in['0'..'9',#8])then   //限制只输入数字
  begin
      key:=#0;
      MessageBeep(1);    //Beep; 调用系统声音也行!
  end;
end;

['a'..'z' ,'A'..'Z', #8]       限制只输入字母

 

Posted in 软件开发 by 傻猫 at July 12, 2013.
Tags: delphi, keypress, 限制输入

添加新评论