各位大大您好 我想要請教一下有關於動態產生的FORM 應該要如何delete

Form2=new TForm2(Application);
Form2->Parent = Form1->Panel1 ;
lstrcpy(theFileName, imageDir);
lstrcat(theFileName, TreeView1->Items->Item[i]->Text.c_str());
lstrcat(theFileName, "\\");
lstrcat(theFileName, TreeView1->Items->Item[i]->Item[j]->Text.c_str());
Form2->Image1->Picture->LoadFromFile(theFileName);
Form2->Show() ;    

程式碼概略如上 只是外面加了for回圈 所以一連產生5～10個動態相同的Form2 但是要如何用回圈將所有的Form2 給delete bcb新手上路 請多指教

您必須用一個容器將您產生的 Form 存起來：

TList *list = new TList;
TForm2 *Form2;    for (int i = 0; i < 6; i  )
{
  Form2 = new TForm2(Application);
  list->Add(Form2);
  Form2->Parent = Form1->Panel1 ;
  lstrcpy(theFileName, imageDir);
  lstrcat(theFileName, TreeView1->Items->Item[i]->Text.c_str());
  lstrcat(theFileName, "\\");
  lstrcat(theFileName, TreeView1->Items->Item[i]->Item[j]->Text.c_str());
  Form2->Image1->Picture->LoadFromFile(theFileName);
  Form2->Show() ;
}
    
/* 以下為 Delete Code */
for (int i = 0; i < list->Count; i  )
{
  delete (TForm2 *)(list->Items[i]);
}
    
delete list;

發表人 - allenchan 於 2004/12/14 00:18:56

allenchan大大您好 我剛剛試過您的方法 結果產生下面結果 想請教一下是發生什麼事情呢 bcb新手上路 請多指教

可以將您的 Code 貼上來看一下嗎？

allenchan大大 我想應該是我忘記強制轉換型態 delete (list->Items[i]); 少了(TForm2 *) -->delete (TForm2 *)(list->Items[i]); 誠如您程式碼 這樣就OK了 真是感謝您的幫忙 bcb新手上路 請多指教