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

請問個關於MDI的問題

尚未結案
jumpsister
一般會員


發表:5
回覆:3
積分:1
註冊:2004-06-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-07-18 19:40:31 IP:203.67.xxx.xxx 未訂閱
有3個Form MDIForm   ChildForm(fsMDIChild)     Form1(fsMDIChild)    (MDI我是直接用BCB的Project建立)    按下MDIForm ToolBar中Button產生ChildForm    接者在ChildForm中的Edit鍵入資料 click確定之後    再產生Form1且Form1中Label把剛剛鍵入的資料秀出來    所以小弟在ChildForm 中    #include"Unit1.h"    Form1->Label1->Caption = Edit1->Text;    不過.程式跑起來在產生Form1時會跑出錯誤訊息     後來將Form1的FormStyle設為Normal就可以 小弟希望能將Form1設為Child的形式............ 想請問各位大大哪裡錯誤....麻煩了
polongkon
一般會員


發表:8
回覆:19
積分:5
註冊:2004-04-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-07-19 18:30:43 IP:210.61.xxx.xxx 未訂閱
jumpsister 您好: 試著吧其中一個視窗FormStyle 設為fsMDIForm,再把其他的視窗設為fsMDIChild。 試看看! 因為在多表單視窗中,沒有父母(fsMDIForm)怎會有小孩勒(fsMDIChild)。 Good Luck! 嘿嘿~ 我是來亂的^.^
arnoyu
中階會員


發表:73
回覆:88
積分:67
註冊:2003-03-21

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-07-20 11:57:30 IP:61.56.xxx.xxx 未訂閱
剛剛試了一下,確定是可行的... 步驟如下: (1)在main.h(標頭檔)裡面加入紅色部分:  
 
private:
        void __fastcall CreateMDIChild(const String Name);    public:
        virtual __fastcall TMainForm(TComponent *Owner);
     void __fastcall CreateMDIForm1(AnsiString Name,AnsiString ed1); 
};
(2)在main.cpp裡加入下列:
//---------------------------------------------------------------------------    void __fastcall TMainForm::CreateMDIForm1(AnsiString Name ,AnsiString ed1)
{
        TForm1 *abc1;
        static int str1=0;
        Name=Name IntToStr(str1);
        //--- create a new MDI child window ----
        abc1 = new TForm1(Application);
        abc1->Name=Name;
        abc1->Caption = Name;
        abc1->Edit1->Text=ed1;
        str1  ;    }
//---------------------------------------------------------------------------     
(3)在MDIChild裡面拉入一個Button在其單擊事件中加入下列:
 
void __fastcall TMDIChild::Button1Click(TObject *Sender)
{
MainForm->CreateMDIForm1("aaa",Edit1->Text);
}
(4)記得有引用到的form都要在程式碼開頭加入下列:
 
#include "Main.h"
#include "Unit1.h"
#include "ChildWin.h"
(5)記的要將Project裡的Project Options裡的Forms裡的 Form1設成Availabie forms (6)Form1的FormStyle設為fsMDIChild (7)報告完畢.. ===三人行必有我師焉===
jumpsister
一般會員


發表:5
回覆:3
積分:1
註冊:2004-06-04

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-07-21 15:34:37 IP:203.67.xxx.xxx 未訂閱
    感謝 arnoyu 非常詳細的解說.... 讓我又多學到了一點東西~~~~~~~~~~~感恩
系統時間:2024-06-26 11:02:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!