delphi限定數字輸入

 在回車鍵事件中加入：

  if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '.', #8, #13]) then
    key := char(0); //key:=char(' ');//#8是回退鍵，#13是回車鍵

即可限定數字輸入。