TImage **NewImg;
  for(WORD i=0; i
但執行時出現EAccessViolation錯誤
請先進指教
謝謝        發表人 - marky1 於 2003/09/03  13:56:09
        

引言: 於 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18752 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35307 有相關說明 但都無法產生任意個 我試了下面程式 TImage **NewImg; for(WORD i=0; i marky1 你好: 請參考以下的做法 < class="code"> TList *gList; TImage *gImage; void __fastcall TForm1::Button1Click(TObject *Sender) { gImage=new TImage(Application); gImage->Parent=this; gList->Add(gImage); gImage->Width=20; gImage->Height=20; gImage->Left=8 (gImage->Width 10)*(gList->Count-1); gImage->Top=8; gImage->Canvas->Brush->Color=clWhite; gImage->Canvas->FillRect(Rect(0, 0, gImage->Width, gImage->Height)); } void __fastcall TForm1::Button2Click(TObject *Sender) { if(gList->Count>0) { delete (TImage*)gList->Items[gList->Count-1]; gList->Delete(gList->Count-1); } } void __fastcall TForm1::FormCreate(TObject *Sender) { gList=new TList; } void __fastcall TForm1::FormDestroy(TObject *Sender) { delete gList; } -- Enjoy Researching & Developing --

引言: marky1 你好: 請參考以下的做法 < class="code"> TList *gList; TImage *gImage; void __fastcall TForm1::Button1Click(TObject *Sender) { gImage=new TImage(Application); gImage->Parent=this; gList->Add(gImage); gImage->Width=20; gImage->Height=20; gImage->Left=8 (gImage->Width 10)*(gList->Count-1); gImage->Top=8; gImage->Canvas->Brush->Color=clWhite; gImage->Canvas->FillRect(Rect(0, 0, gImage->Width, gImage->Height)); } void __fastcall TForm1::Button2Click(TObject *Sender) { if(gList->Count>0) { delete (TImage*)gList->Items[gList->Count-1]; gList->Delete(gList->Count-1); } } void __fastcall TForm1::FormCreate(TObject *Sender) { gList=new TList; } void __fastcall TForm1::FormDestroy(TObject *Sender) { delete gList; }