繼動態產生元件後如何將產生的元件消除 |
答題得分者是:ddy
|
ko
資深會員 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
引言: 再給你一段sample看看 var Form1: TForm1; Labels: array[0..9, 0..9] of TLabel; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i, j: Integer; lb: TLabel; begin for i := Low(Labels) to High(Labels) do begin for j := Low(Labels[i]) to High(Labels[i]) do begin lb := TLabel.Create(self); lb.Parent := Self; lb.Caption := IntToStr(StrToInt(IntToStr(i) IntToStr(j)) 1); lb.Width := 50; lb.Height := 20; lb.Left := j * lb.Width 5; lb.Top := i * lb.Height 5; Labels[i, j] := lb; end; end; end;各位好: 這樣是開了100個Label可是我如果要刪除其中幾個 ... 或是全部清除要怎麼做才好勒!!!
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
procedure killArray(i,j:Integer) ; begin Labels[i,j].Free ; end; procedure TForm1.Button2Click(Sender: TObject); var i:Integer; begin for i :=0 to 10 do killArray(i,1); end;--【KTop SNG新聞現場】--記者:ddy----------------------------------------- 請各位市民做好資源回收與垃圾分類,讓不良標題與不當發言在KTop 市消失 ------------------------------------------------------------------------- 發表人 - ddy 於 2002/12/05 12:13:39 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |