如何動態建立元件 |
|
答題得分者是：Brady_Chen
|
|
pchw8598
一般會員   發表：43 回覆：63 積分：21 註冊：2003-11-09 發送簡訊給我 |
|
|
carstyc
資深會員   發表：16 回覆：254 積分：329 註冊：2003-07-18 發送簡訊給我 |
var i: integer; img: array of TImage; begin SetLength(img, 10); for i := 0 to 9 do img[i] := TImage.Create; end; ===================引 用 pchw8598 文 章=================== 各位好, 我已經爬過了文了, 查到的動態元件建立方式, 都是事先已經知道個要建立元件的個數了,例如： TImage *Img[5]; 而這裡我想要寫的是, 輸入一個整數n, 並動態建立n個TImage. 謝謝各位. |
|
pchw8598
一般會員 發表：43 回覆：63 積分：21 註冊：2003-11-09 發送簡訊給我 |
|
|
老大仔
尊榮會員 發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
|
|
Brady_Chen
一般會員 發表：6 回覆：14 積分：9 註冊：2013-02-07 發送簡訊給我 |
動態產生CheckBox
你參考看看 cbox = new TCheckBox*[data1c]; //一次要建立 (data1c) 個CheckBox，做記憶體配置 ,(data1c)自行改成你的變數 for(int j=0; j
{ cbox[j] = new TCheckBox(Form1); //記憶體配置 cbox[j]->Caption = (*(*(data) j) " , " *(*(data 2) j)); //指定CheckBox的Caption cbox[j]->Parent=Form1; //指定CheckBox的Parent cbox[j]->Name = AnsiString("CheckBox") IntToStr(j); //指定CheckBox的Name cbox[j]->Width = 115; //指定CheckBox的寬度 cbox[j]->Height = 15; //指定CheckBox的高度 cbox[j]->Checked = false; //設定CheckBox的Checked參數 if(j >= 10 10*chkcol) {chkcol ;} cbox[j]->Left = 50 150*chkcol; //指定CheckBox的位置 cbox[j]->Top = 50 2*j*(cbox[j]->Height)-300*chkcol; //指定CheckBox的位置 }
編輯記錄
|
發表時間：2011-11-29 20:22:31
IP:112.104.xxx.xxx 訂閱
系統時間：2025-02-27 2:54:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |