線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2351
推到 Plurk!
推到 Facebook!

限制Edit.Text的輸入

答題得分者是:hagar
yezi_ji
一般會員


發表:16
回覆:31
積分:9
註冊:2003-03-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-17 21:18:54 IP:218.14.xxx.xxx 未訂閱
各位大大及前輩,小弟有一問題請教:我想限制Edit.Text的輸入,也就是說,我想讓Edit只餉應數字,就是在Edit框中只能輸入數字,如果我輸入字符的話,Edit就得不到它的值。 我是菜鳥,請多指點! 不勝感激!!
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-17 21:32:46 IP:202.39.xxx.xxx 未訂閱
FAQ:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9']) then
    Key := #0;
end;
--- 每個人都是一本書
yezi_ji
一般會員


發表:16
回覆:31
積分:9
註冊:2003-03-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-04-17 21:40:41 IP:218.14.xxx.xxx 未訂閱
非常感謝hagar版主大人的幫助,我在這也謝謝以前幫助過我的從多前輩。 我是菜鳥,請多指點! 不勝感激!!
yezi_ji
一般會員


發表:16
回覆:31
積分:9
註冊:2003-03-22

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-04-18 08:56:48 IP:218.14.xxx.xxx 未訂閱
再次請問hagar大大:  
引言: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9']) then Key := #0; end;
這樣做的話,刪除鍵就沒有用了,請問:刪除鍵在['0'..'9']里怎麽表達? 謝謝。 我是菜鳥,請多指點! 不勝感激!!
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-04-18 09:19:02 IP:202.39.xxx.xxx 未訂閱
if not (Key in ['0'..'9', #8]) then --- 每個人都是一本書
yezi_ji
一般會員


發表:16
回覆:31
積分:9
註冊:2003-03-22

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-04-18 09:47:21 IP:218.14.xxx.xxx 未訂閱
再次感謝hagar大大的幫助。 我是菜鳥,請多指點! 不勝感激!!
tomc
一般會員


發表:41
回覆:35
積分:15
註冊:2003-07-27

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-08-13 11:31:44 IP:202.104.xxx.xxx 未訂閱
引言: 再次感謝hagar大大的幫助。 我是菜鳥,請多指點! 不勝感激!!
我附加一個問題,就是如果在Edit.Text中輸入的是小數點的數和BackSpace鍵的話,那小數點怎麼輸入呢? 是不是這樣: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (not (Key in ['0'..'9']) or (key<>'.')) and (key<>chr(8)) then Key := #0; end; 交流.學習
------
交流.學習
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-08-13 11:44:38 IP:202.39.xxx.xxx 未訂閱
自己 run 一下, 不就知道結果了? --- --<-<-<@
Akqj1098
一般會員


發表:14
回覆:60
積分:14
註冊:2002-05-17

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-08-13 14:45:37 IP:211.23.xxx.xxx 未訂閱
怎麼不考慮用 PBNumEdit1 元件呢 這個元件只允許輸入數字跟「,」「.」 也可以設定小數位的位數.... 我都拿來做金額、數量的輸入元件 你參考看看
系統時間:2024-05-20 3:55:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!