全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2192
推到 Plurk!
推到 Facebook!

如何動態建立元件

答題得分者是:Brady_Chen
pchw8598
一般會員


發表:43
回覆:63
積分:21
註冊:2003-11-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-11-29 20:22:31 IP:112.104.xxx.xxx 訂閱
各位好, 我已經爬過了文了, 查到的動態元件建立方式, 都是事先已經知道個要建立元件的個數了,例如: TImage *Img[5];
而這裡我想要寫的是, 輸入一個整數n, 並動態建立n個TImage. 謝謝各位.
carstyc
資深會員


發表:16
回覆:254
積分:329
註冊:2003-07-18

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-11-29 22:49:43 IP:219.84.xxx.xxx 訂閱

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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-11-30 12:28:11 IP:140.131.xxx.xxx 訂閱
謝謝carstyc提供的答案,但是delphi的寫法,我換成BCB好像不能這樣用喔???
好像SetLength的用法也不一樣, 所以我目前還是沒有辦法將此delphi改成BCB....我查了Help,也努力改寫,但都沒成功......我太弱了

請問carstyc大大或是還有別的大大能否更直接跟我說BCB的寫法~~謝謝

老大仔
尊榮會員


發表:77
回覆:835
積分:1082
註冊:2006-07-06

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-11-30 13:26:08 IP:59.120.xxx.xxx 未訂閱
delphi.ktop.com.tw/board.php


===================引 用 pchw8598 文 章===================
謝謝carstyc提供的答案,但是delphi的寫法,我換成BCB好像不能這樣用喔???
好像SetLength的用法也不一樣, 所以我目前還是沒有辦法將此delphi改成BCB....我查了Help,也努力改寫,但都沒成功......我太弱了

請問carstyc大大或是還有別的大大能否更直接跟我說BCB的寫法~~謝謝

Brady_Chen
一般會員


發表:6
回覆:14
積分:9
註冊:2013-02-07

發送簡訊給我
#5 引用回覆 回覆 發表時間:2013-02-21 15:01:59 IP:60.248.xxx.xxx 訂閱
 動態產生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的位置
}
編輯記錄
Brady_Chen 重新編輯於 2013-02-21 00:03:01, 註解 無‧
Brady_Chen 重新編輯於 2013-02-21 00:03:16, 註解 無‧
系統時間:2017-10-19 4:03:44
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!