我想做一個類似Edit的元件 但他只能輸入數字    1.首先我新增一個元件讓他繼承TEdit，他的名字叫TNumEdit    2.在Private:裡AnsiString ori; (儲存舊字串)    3.在TNumEdit的建構函式

__fastcall TNumEdit::TNumEdit(TComponent* Owner)
        : TEdit(Owner)
{
        TEdit::change;
        ori=TEdit::Text;
}

4.接著自定一個函式

change(TObject *Sender){
        if(TEdit::Text符合條件){
                ori=TEdit::Text;
        }else{
                TEdit::Text=ori;
        }
//        if(TNumEdit::OnChange){
//                TNumEdit::OnChange();
//        }
}

我在NumEdit.h裡寫了

typedef void __fastcall (__closure *OnChange)(System::TObject *Sender);

想蓋掉TEdit的OnChange事件 可是好像沒有成功 如果在設計時期指定了OnChange的EventHandler 則change()就沒有動作 請問要如何解決？ 發表人 - gmobug 於 2005/07/14 20:55:02 發表人 - gmobug 於 2005/07/14 20:57:49

我在網路上查了一些資料 要覆蓋TEdit的OnChange事件似乎不用重新typedef 好像是會用到DYNAMIC 但我不太清楚怎麼用

我建議你可以從TCustomEdit繼承。 然後再重載這函式！ DYNAMIC void __fastcall KeyPress(Char &Key); 當有按鍵發生時，你可以檢查按下的Key是否為數值？ 發表人 - liangnet 於 2005/07/15 16:39:57

但是用KeyPress遇到用貼上的方式會有問題

嗯~不好意思，沒想的週到一點^^" 以下這是我剛試的方法。 重載 DYNAMIC void __fastcall Change(void); 然後再這函式裡，去檢查Text是否為正確的數值資料。

void __fastcall TNumberEdit::Change(void)
{
        int nValue;
        if (!TryStrToInt(Text, nValue))
        {
                //非整值
                Text = "";
        }
        TCustomEdit::Change();
}

附上這一段小程式給你參考。 發表人 - liangnet 於 2005/07/15 17:08:09 發表人 - liangnet 於 2005/07/15 17:11:23

謝謝！ 我不知道他有Change這個方法 請問OnXXX的事件都有對應的XXX方法嗎？

引言: 謝謝！ 我不知道他有Change這個方法 請問OnXXX的事件都有對應的XXX方法嗎？

不一定~ 你可以按Ctrl後，然後再把你的Mouse移到TCustomEdit這個字上Click， 就會跳到定義TCustomEdit的地方，可以看一下原型的定義有那些東西^^ 如果要看到每個函式裡面的實作程式，可以到BCB的目錄下 C:\Program Files\Borland\CBuilder6\Source\vcl 裡面會有Source Code，不過是用Pascal寫的。 發表人 - liangnet 於 2005/07/15 18:17:14

我發現如果繼承TCustomEdit的話 很多東西好像要在自己讓他變published 而且Events那裡是空白的....

按著Ctrl再去按TCustomEdit跑出來的StdCtrls.hpp 裡面有TCustomEdit和TEdit TEdit的__published那邊宣告了很多 我可不可以直接把他複製到NumEdit.h的__published裡面 這樣設計時期看起來就比較像TEdit

嘿...似乎可以:) 現在有個比較不重要的問題就是 平常把TEdit在畫面上拉好之後 Text屬性預設會是EditX, X屬於N 並自動遞增 (通常跟Name一樣) 可是做出來的元件 他的Text預設是空白 在StdCtrls.hpp那邊也沒有特別寫什麼 還是他是寫在建構子那邊？ 可是建構子那時候就有作用了嗎 發表人 - gmobug 於 2005/07/15 19:16:59

為什麼我在Change()裡 寫了一部分程式碼 有動到SelStart 可以通過編譯 可是拉元件的時候出現 Control 'NumEdit1' has no parent window. 把動到SelStart的那幾行註解掉又沒問題了？