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

Form 之繼承

答題得分者是:axsoft

中階會員


發表:36
回覆:142
積分:70
註冊:2003-07-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-08-04 10:25:19 IP:211.23.xxx.xxx 未訂閱
請問前輩們,該如何繼承一個 Form 呢? 小弟想達到繼承後能保有舊 Form 中的元件 我想繼承後元件的 Name 應該也跟舊 Form 一樣才對? 可以的話是否能補充關於繼承這方面的概念 繼承後的 Form 與元件跟舊 Form 會不會有什麼不同 是否有什麼該注意的地方 小弟對繼承的 code 並不了解 希望前輩們指導。
axsoft
版主


發表:681
回覆:1056
積分:969
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-08-04 14:11:23 IP:61.218.xxx.xxx 未訂閱
流您好:    以下簡單的範例您參考看看!
設計時期:
        執行時期:

    Unit1.cpp
//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMDIForm *MDIForm;
//---------------------------------------------------------------------------
__fastcall TMDIForm::TMDIForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMDIForm::New1Click(TObject *Sender)
{
 TChildForm *child=new TChildForm(Application);
 child->FormStyle=fsMDIChild;
 child->Name="childForm" + IntToStr(MDIChildCount);
 child->Caption="Edit" + IntToStr(MDIChildCount);
 child->RichEdit->Name="Richedit"+ IntToStr(MDIChildCount);    }
//---------------------------------------------------------------------------
void __fastcall TMDIForm::FormCreate(TObject *Sender)
{
 MDIForm->FormStyle=fsMDIForm;
}
//---------------------------------------------------------------------------        Unit1.h
//---------------------------------------------------------------------------    #ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include 
#include 
#include 
#include <Forms.hpp>
#include 
#include "unit2.h"
#include 
//---------------------------------------------------------------------------
class TMDIForm : public TForm
{
__published:        // IDE-managed Components
        TMainMenu *MainMenu1;
        TMenuItem *demo1;
        TMenuItem *New1;
        TMenuItem *exit1;
        TMenuItem *Exit;
        TActionList *ActionList1;
        void __fastcall New1Click(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
private:        // User declarations
public:                // User declarations
        __fastcall TMDIForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMDIForm *MDIForm;
//---------------------------------------------------------------------------
#endif        Unit2.cpp
//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TChildForm *ChildForm;
//---------------------------------------------------------------------------
__fastcall TChildForm::TChildForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TChildForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  if (MessageDlg("Close application ?", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo,0) == mrYes)
    Action = caFree;
  else
    Action = caMinimize;    }
//---------------------------------------------------------------------------
HAVE A NICE DAY FOR YOU 發表人 - axsoft 於 2003/08/04 14:18:55
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-08-04 15:55:16 IP:147.8.xxx.xxx 未訂閱
Visual form inheritance? I don't have BCB, but it should be similar: 1) create a new project (e.g. Demo) 2) create your base form (Form1) 3) IDE menu, File|New|Other, select the tab with your project's name (e.g. Demo). Select your base form and OK... 4) a new form inherited from Form1 is created...

中階會員


發表:36
回覆:142
積分:70
註冊:2003-07-24

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-08-06 23:25:02 IP:218.163.xxx.xxx 未訂閱
謝謝 axsoft 的指導 其實我發現有蠻多地方語法都不懂 我有必要好好的找 c 的研究 感謝!
系統時間:2024-06-26 22:29:34
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!