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

TTabSheet 上面開啟一個Form

尚未結案
126875
一般會員


發表:1
回覆:1
積分:0
註冊:2003-10-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-10-23 14:10:07 IP:211.74.xxx.xxx 未訂閱
void __fastcall TMainForm::CreateMDIChild(String Name) { TMDIChild *Child; //--- create a new MDI child window ---- TTabSheet *pTabSheet = new TTabSheet(PageControl); pTabSheet->PageControl = PageControl; pTabSheet->PageControl->BiDiMode = true; Child = new TMDIChild(Application); Count ; pTabSheet->PageIndex = Count - 1 ; pTabSheet->Caption = IntToStr(Count); PageControl->Pages[Count - 1 ]->TabVisible = true; Child->Lab_Win->Caption = IntToStr(Count); Child->Caption = Name; Child_Array[Count] = Child; if( Child_Click ) Child_Prior = Child_Click; else Child_Prior = Count; Child_Click = Count; if (FileExists (Name)) Child->Image_one->Picture->LoadFromFile(Name); } 新產生的Form無法開在TTabSheet上面
RaynorPao
版主


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-10-23 15:13:27 IP:203.73.xxx.xxx 未訂閱
引言: void __fastcall TMainForm::CreateMDIChild(String Name) { TMDIChild *Child; //--- create a new MDI child window ---- TTabSheet *pTabSheet = new TTabSheet(PageControl); pTabSheet->PageControl = PageControl; pTabSheet->PageControl->BiDiMode = true; Child = new TMDIChild(Application); Count ; pTabSheet->PageIndex = Count - 1 ; pTabSheet->Caption = IntToStr(Count); PageControl->Pages[Count - 1 ]->TabVisible = true; Child->Lab_Win->Caption = IntToStr(Count); Child->Caption = Name; Child_Array[Count] = Child; if( Child_Click ) Child_Prior = Child_Click; else Child_Prior = Count; Child_Click = Count; if (FileExists (Name)) Child->Image_one->Picture->LoadFromFile(Name); } 新產生的Form無法開在TTabSheet上面
126875 你好: TForm 可以放在 TTabSheet 裡面嗎?? 小弟我沒有這樣做過,不太清楚是否可行 ??< > 其他的大大知不知道呢??< > 我的做法是利用 TFrame
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
jcjroc
高階會員


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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-10-23 15:46:29 IP:211.75.xxx.xxx 未訂閱
你不可以用MDIChildForm吧! 我之前的做法是用TForm,然後設定其Parent,然後在ReSize中去調整Form的大小(如果PageControl會動態的改變大小的話). 發表人 - JCJROC 於 2003/10/23 15:48:10
126875
一般會員


發表:1
回覆:1
積分:0
註冊:2003-10-04

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-11-07 01:09:21 IP:218.165.xxx.xxx 未訂閱
問題己經解決了 謝謝大家!!
pony0952
一般會員


發表:3
回覆:7
積分:2
註冊:2003-10-06

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-10-16 01:31:10 IP:211.74.xxx.xxx 未訂閱
雖然己經結案了,正好最近正在研究,所以...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form2->Parent = this->PageControl1;
    Form2->Show();    }
但小弟對於在TeeChar中,動態的讀取Form進來就老是搞不懂了.. Pony
------
Pony
系統時間:2024-05-19 8:13:51
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!