//父表單h檔
class TDBForm : public TForm
{
__published:
    void __fastcall FormShow(TObject *Sender);
private:
    bool __fastcall CheckField();
public:                
    String not_null_field;
    String not_remake_field;
};    //子表單h檔
class TDBForm4 : public TDBForm
{
__published:        
       void __fastcall FormShow(TObject *Sender);
};    //子表單cpp檔
void __fastcall TDBForm4::FormShow(TObject *Sender)
{
    TDBForm::FormShow(Sender);
    not_null_field="abc";
    not_null_field="def";
}    //父表單cpp檔
void __fastcall TDBForm::FormShow(TObject *Sender)
{
   ....
}
bool __fastcall TDBForm::CheckField()
{                             
    ShowMessage(not_null_field not_remake_field);
}    Show出來的訊息是空的.那兩個變數沒有值
這是為什麼呢?
謝謝    

------
KUSO 無處不在

CheckField()這個動作是在子表單Show出來後按下表單上某個按紐發生的

------
KUSO 無處不在

引言:

//父表單h檔
class TDBForm : public TForm
{
__published:
    void __fastcall FormShow(TObject *Sender);
private:
    bool __fastcall CheckField();
public:                
    String not_null_field;
    String not_remake_field;
};    //子表單h檔
class TDBForm4 : public TDBForm
{
__published:        
       void __fastcall FormShow(TObject *Sender);
};    //子表單cpp檔
void __fastcall TDBForm4::FormShow(TObject *Sender)
{
    TDBForm::FormShow(Sender);
    DBForm->not_null_field="abc";
    DBForm->not_null_field="def";
 //是這個問題嗎?    }    //父表單cpp檔
void __fastcall TDBForm::FormShow(TObject *Sender)
{
   ....
}
bool __fastcall TDBForm::CheckField()
{                             
    ShowMessage(DBForm->not_null_field DBForm->not_remake_field);
}    Show出來的訊息是空的.那兩個變數沒有值
這是為什麼呢?
謝謝    

發表人 - taishyang 於 2005/02/25 09:03:49

是的 變數定義在父表單 然後在子表單給它值 結果是空的 謝謝

------
KUSO 無處不在

引言: 是的 變數定義在父表單 然後在子表單給它值 結果是空的 謝謝

或許你是流程問題將 ShowMessage(DBForm->not_null_field DBForm->not_remake_field); 搬到void __fastcall TDBForm4::FormShow(TObject *Sender) 檢查看看

謝謝大大的回答 可是有很多子表單都繼承這個父表單 所以這麼做的話其它表單就繼承不到功能了

------
KUSO 無處不在

定義在這裡就可以了.還是很感謝大大的回覆 __fastcall TDBForm4::TDBForm4(TComponent* Owner) : TDBForm(Owner) { not_null_field="abc"; not_null_field="def"; }

------
KUSO 無處不在

請問用Delphi要怎麼寫(子視窗要在哪兒定引用的參數)