全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1092
推到 Plurk!
推到 Facebook!

TEdit只能輸入數字

尚未結案
SpeedSun58
一般會員


發表:5
回覆:1
積分:1
註冊:2003-08-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-10-21 17:09:08 IP:148.245.xxx.xxx 未訂閱
怎麼讓TEdit只能夠輸入數字,謝謝
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-10-21 17:13:07 IP:203.73.xxx.xxx 未訂閱
引言: 怎麼讓TEdit只能夠輸入數字,謝謝 < face="Verdana, Arial, Helvetica"> SpeedSun58 你好: 請參考以下的範例程式碼 < class="code"> void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) { if((Key<'0') || (Key>'9')) { Key=0; } } -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
gemi0305
版主


發表:81
回覆:564
積分:629
註冊:2003-05-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-10-21 17:44:34 IP:210.66.xxx.xxx 未訂閱
我來幫包大哥補充一下, 除了接受數字之外,你可能需要「倒退鍵」和可以輸入小數點 < class="code"> void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) { AnsiString EditText=Edit1->Text; if(EditText.Pos(".")==0) { if(!((Key>='0'&&Key<='9' )||Key=='.'||Key==0x08)) Key=0; } else { if(!((Key>='0'&&Key<='9' )||Key==0x08)) Key=0; } } 試試看吧~ 國泰平安 發表人 - Gemi0305 於 2003/10/22 00:07:02
jcjroc
高階會員


發表:21
回覆:279
積分:115
註冊:2002-09-18

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-10-23 10:58:50 IP:211.75.xxx.xxx 未訂閱
好像你可以直接設定其Style為ES_NUMBER 參照CreateWindow,SetWindowLong
SpeedSun58
一般會員


發表:5
回覆:1
積分:1
註冊:2003-08-18

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-10-23 21:33:34 IP:61.250.xxx.xxx 未訂閱
謝謝各位大大的幫忙
feeling
一般會員


發表:1
回覆:4
積分:1
註冊:2003-06-07

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-10-24 18:02:42 IP:159.226.xxx.xxx 未訂閱
void __fastcall TForm1::Edit1KeyPress(TObject *Sender,char &Key)
{
        Key = CheckValidKey(Key);
}    char TForm_File_Input::CheckValidKey(char &Key)
{
  if( Key == '\b' )  // Delete 键
    return Key;      AnsiString InputKey = Key;
  AnsiString ValidKey = AnsiString("0123456789");        // 数字
  if ( ValidKey.Pos(InputKey) == 0 )
  {
    Key = 0;
  }
  return Key;
}
發表人 - feeling 於 2003/10/24 18:08:04
------
NULL
feeling
一般會員


發表:1
回覆:4
積分:1
註冊:2003-06-07

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-10-24 18:04:31 IP:159.226.xxx.xxx 未訂閱
创建一新的类比较好 < class="code"> // 类的声明如下: class TMyEdit:public TEdit { private: protected: virtual void __fastcall CreateParams(TCreateParams Params); }; // 类的代码实现: void __fastcall TMyEdit::CreateParams(TCreateParams Params) { TEdit::CreateParams(Params); Params.Style|=ES_NUMBER; } NULL
------
NULL
系統時間:2024-05-07 17:24:36
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!