請問    動態產生 5 個相同的元件 之後  怎麼區別之間 event 的觸發 ...?    ex: for(int ci=0;ci<5;ci ) { image[ci] = new TImage(this); image[ci]->Parent=this; image[ci]->Picture->LoadFromFile("xx"); image[ci]->PopupMenu=ppm2; image[ci]->SetBounds(x,x,x,x); } 然後我想 對 image 按右鍵 delete... ><" 例如 image[0] 上按右鍵 之後image[0]會delete image[1] 上按右鍵 之後image[1]會delete 有什麼發法可以區別 每個動態產生元件的event嗎 < > 新手上路< > 感謝各位大大指教>"< 發表人 - qqo 於 2003/05/03 23:38:14

//----------------------------------------------------------------------------//
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  for(int i=0;i<5;i  )
  {
    image[i]=new TImage(this);
    image[i]->Parent=this;
    image[i]->Width=100;
    image[i]->Height=100;
    image[i]->Left=i*20;
    image[i]->Top=i*10;
    for(int x=0;x<100;x  )
      for(int y=0;y<100;y  )
       image[i]->Canvas->Pixels[x][y]=0x00FF0000>>i;
    image[i]->ImageMouseDown;
  }
}
//----------------------------------------------------------------------------//
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if(Button==mbRight)
  {
    TImage *img=dynamic_cast<TImage *>(Sender);
    if(img!=NULL)
      delete img;
  }
}
//----------------------------------------------------------------------------//

這樣每一個點個右鍵就刪除了。 如果還要分，可以為每個元件取名：

//----------------------------------------------------------------------------//
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  for(int i=0;i<5;i  )
  {
    image[i]=new TImage(this);
    image[i]->Name="ImageArray" IntToStr(i);
    image[i]->Parent=this;
    image[i]->Width=100;
    image[i]->Height=100;
    image[i]->Left=i*30;
    image[i]->Top=i*20;
    for(int x=0;x<100;x  )
      for(int y=0;y<100;y  )
       image[i]->Canvas->Pixels[x][y]=0x00FF0000>>i;
    image[i]->ImageMouseDown;
  }
}
//----------------------------------------------------------------------------//
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if(Button==mbRight)
  {
    TImage *img=dynamic_cast<TImage *>(Sender);
    if(img!=NULL)
    {
      ShowMessage(img->Name " deleted!");
      delete img;
      img=NULL;
    }
  }
}
//----------------------------------------------------------------------------//

沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://big5.to/吃軟也吃硬 http://coolsite.to/ushells 介紹Shells,LiteStep,GeoShell.... 發表人 - dllee 於 2003/05/04 10:37:53

------
http://www.ViewMove.com

^^y 感謝 大大的幫助...