限制edit只能輸入數字 |
答題得分者是:st33chen
|
g9614721
一般會員 發表:27 回覆:51 積分:15 註冊:2008-07-23 發送簡訊給我 |
|
老大仔
尊榮會員 發表:78 回覆:837 積分:1088 註冊:2006-07-06 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
單從 delphi 語法來討論 (不討論有無元件或元件屬性可用) if strtointdef(trim(edit1.text),0)<=0 then showmessage('必須為大於零整數') else begin ... end;
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2009-03-04 08:31:26, 註解 無‧
|
frappe
中階會員 發表:88 回覆:114 積分:95 註冊:2008-10-21 發送簡訊給我 |
|
g9614721
一般會員 發表:27 回覆:51 積分:15 註冊:2008-07-23 發送簡訊給我 |
|
marsking
一般會員 發表:6 回覆:6 積分:2 註冊:2004-06-14 發送簡訊給我 |
如果要解決無法使用back space只要這樣做就好~
[code delphi] procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key <> #8 then if not (Key in ['0'..'9']) then Key := #0 end; [/code] ===================引 用 g9614721 文 章=================== 感謝st33chen 方法比較接近我想要的效果! 也謝謝 frappe 不過frappe 的做法 打錯時 不能使用back space 只能使用delete 但也又學了一招^^ ===================引 用 st33chen 文 章=================== 您好, 單從 delphi 語法來討論 (不討論有無元件或元件屬性可用) if strtointdef(trim(edit1.text),0)<=0 then showmessage('必須為大於零整數') else begin ... end; |
psp7456
一般會員 發表:0 回覆:1 積分:0 註冊:2010-11-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |