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