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

有關動態產生視窗的問題

答題得分者是:avex
stevenchiou
一般會員


發表:11
回覆:10
積分:4
註冊:2003-09-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-09-19 16:01:01 IP:61.220.xxx.xxx 未訂閱
以下是被動態生成視窗的程式,包括VCL也是動態生成的 單獨執行時沒問題(只執fmPmt時沒問題),但是若由另一視窗呼叫此視窗的生成函式,動態生成的VCL會生不出來>"<. class TfmPmt : public TForm { __published: // IDE-managed Components void __fastcall FormCreate(TObject *Sender); private: // User declarations TLabel *lbItem[20]; public: int ItemCount; __fastcall TfmPmt(TComponent* Owner); }; //-------------------------------------------------------------------- extern PACKAGE TfmPmt *fmPmt; //-------------------------------------------------------------------- void __fastcall TfmPmt::FormCreate(TObject *Sender) { ItemCount = 5; for(int i = 0;i < ItemCount;i ) { //動態生成TLalel lbItem[i] = new TLabel(this); lbItem[i]->Width = 100; lbItem[i]->Height = 30; lbItem[i]->Left = 10; lbItem[i]->Top = 10 *32 ; lbItem[i]->Caption ="XXXXXXX" ; lbItem[i]->Font->Size = 12; lbItem[i]->Parent = fmPmt; } } //由fmMain 動態產生 fmPmt void __fastcall TfmMain::Button4Click(TObject *Sender) { TfmPmt *fmPmt; try { fmPmt = new TfmPmt(Application); fmPmt->ShowModal(); delete fmPmt; } catch(Exception &exception) { delete fmPmt; Application->ShowException(&exception); } }
avex
初階會員


發表:19
回覆:49
積分:43
註冊:2003-03-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-09-19 16:31:49 IP:218.163.xxx.xxx 未訂閱
ItemCount = 5; for(int i = 0;i < ItemCount;i++) { //動態生成TLalel lbItem[i] = new TLabel(this); lbItem[i]->Width = 100; lbItem[i]->Height = 30; lbItem[i]->Left = 10; lbItem[i]->Top = 10+i*32 ; lbItem[i]->Caption ="XXXXXXX" ; lbItem[i]->Font->Size = 12; lbItem[i]->Parent = this; // 很明顯的錯覺, 這一行改一下應該可以跑 lbItem[i]->Visible = true; }
stevenchiou
一般會員


發表:11
回覆:10
積分:4
註冊:2003-09-18

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-09-19 16:42:53 IP:61.220.xxx.xxx 未訂閱
^_^ 可以跑了,謝謝你的答案
avex
初階會員


發表:19
回覆:49
積分:43
註冊:2003-03-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-09-19 19:07:38 IP:218.163.xxx.xxx 未訂閱
ItemCount = 5; for(int i = 0;i < ItemCount;i++) { //動態生成TLalel lbItem[i] = new TLabel(this); lbItem[i]->Width = 100; lbItem[i]->Height = 30; lbItem[i]->Left = 10; lbItem[i]->Top = 10+i*32 ; lbItem[i]->Caption ="XXXXXXX" ; lbItem[i]->Font->Size = 12; lbItem[i]->Parent = this; // 很明顯的錯覺, 這一行改一下應該可以跑 lbItem[i]->Visible = true; }
系統時間:2024-05-10 12:07:15
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!