Dynamic Create Components? |
|
jck1
一般會員 發表:53 回覆:67 積分:24 註冊:2002-05-23 發送簡訊給我 |
我動態create了5個checkbox
然後把他砍掉
但程式在砍的部份好像有問題? procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:= 1 to 5 do begin
with TCheckBox.Create(self) do begin
Parent:= GroupBox1;
Left:= 10;
Top:= i * 20;
Caption:= '第' inttostr(i) '個checkbox';
end;
end;
end; procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to GroupBox1.ControlCount - 1 do begin
GroupBox1.Controls[i].Free;
end;
end; Free和Destory要用何者?
這裡用Free對嗎?
|
jieshu
版主 發表:42 回覆:894 積分:745 註冊:2002-04-15 發送簡訊給我 |
引言: 我動態create了5個checkbox 然後把他砍掉 但程式在砍的部份好像有問題?要倒著砍才可以! for i := GroupBox1.ControlCount - 1 downto 0 do TJSQRBuild (簡易報表建立元件) http://freehomepage.taconet.com.tw/This/is/taconet/top_hosts//jieshu/delphi.htm#JSQRBuild 經由元件屬性設定,可不用自己拖拉QuickReport元件,即可建立簡單的QuickReport報表,可在設計階段預覽。亦可將建立的報表存成 Delphi 的 Form (類似 QuickReport Wizard 所產生的程式),再做複雜的設定使用,免除一一拖拉元件的困擾。procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i:= 0 to GroupBox1.ControlCount - 1 do begin GroupBox1.Controls[i].Free; end; end;
------
人生有夢,逐夢而行 人若為善,福雖未至,禍已遠離 人若為惡,禍雖未至,福已遠離 http://www.taconet.com.tw/jieshu/ |
jck1
一般會員 發表:53 回覆:67 積分:24 註冊:2002-05-23 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |