只允許輸入數字的方法

[tim]

在 TEdit 元件中, 若要限制使用者只能輸入數字的話,
可以使用下面的語法, 這是在 delphi 文件中使用的方式,
注意沒有小數點, 需要的話, 請再自行修改, 還有 一般最
容易忽略的就是 BackSpace 鍵的判定, 因為沒有檢查到,
所以會變成不能使用 BackSpace , 這樣的話, 在該 TEdit
元件中會無法使用 [倒退] 鍵來修正輸入, 將會不理想, 所
以要多加上 VK_BACK (8) 的判斷!!

代碼: 選擇全部

    procedure Tform1.edtRecCountKeyPress(Sender: TObject; var Key: Char); 
    begin 
      if ((key in ['0'..'9'] = false) and (word(key) <> VK_BACK)) then 
        key := #0; 
    end;