goback add

Delphi控制输入为数字或字母

11731 点击·0 回帖
灯火互联
楼主


delphi 控制输入为数字或字母
if not (Key in ['0'..'9', 'a'..'z', 'A'..'Z', #8, #13]) then
begin
  Key := #0;
  ShowMessage('请输入数字或字母');
end;



摘自 Ciske Liu



喜欢0 评分0