如何使編輯方塊只能輸二位數的數字 |
尚未結案
|
ricel
一般會員 發表:6 回覆:6 積分:2 註冊:2005-03-27 發送簡訊給我 |
|
Vicen
高階會員 發表:13 回覆:145 積分:151 註冊:2005-03-14 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 据您的要求來看﹐Vicen的方法有點小問題﹐就是允許當使用者輸入一位數的數字﹐Edit1的MaxLength屬性無法控制限定使用者輸入幾位數﹐所以您可用如下方法來處理﹕
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Not (key in ['0'..'9',#8]) then key := #0; end; //以上程式碼用來控制使用者在Edit1中只能輸入0~9的數字和后退鍵 procedure TForm1.Edit1Exit(Sender: TObject); begin if Length(Edit1.Text) <> 2 then begin ShowMessage('Edit1中的輸入值錯誤﹐須為兩位數的數字內容'); Edit1.SetFocus; end; end; //以上程式碼用來控制使用者在Edit1中輸入的長度不等于2時﹐將焦點 //依舊停在Edit1上================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================
------
忻晟 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |