TTabSheet 上面開啟一個Form |
尚未結案
|
126875
一般會員 發表:1 回覆:1 積分:0 註冊:2003-10-04 發送簡訊給我 |
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 發送簡訊給我 |
引言: 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 發送簡訊給我 |
|
126875
一般會員 發表:1 回覆:1 積分:0 註冊:2003-10-04 發送簡訊給我 |
|
pony0952
一般會員 發表:3 回覆:7 積分:2 註冊:2003-10-06 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |