請問各位先進..當在程式中動態產生影像物件.若當在動態產生IMAGE上建立OnDblClick..即將所產生的IMAGE上找適合的影像時..按兩下將所要的IMAGE ASSIGN到FORM1->Image1上...會只找最後顯示的IMAGE..請問各位先進...這可有法可以解決..謝謝先進

newForm[m] = new TForm(Form1);    //動態產生一個newform放image
  Image[m] = new TImage(newForm[m]); //動態產生一個image至於newform
  Image[m]->Parent         = newForm[m];
  Image[m]->ParentShowHint = True;
  newForm[m]->Width        = Image1->Width;
  newForm[m]->Height       = Image1->Height;
  newForm[m]->Caption = "FCM Form  = "   IntToStr(m 1);
  Image[m]->Width          = EndX-StartX 1;
  Image[m]->Height         = EndY-StartY 1;
  Image[m]->Picture->Bitmap->Assign(Bit);
  newForm[m]->FormStyle    = fsStayOnTop;
  newForm[m]->Position     = poScreenCenter;
  Image[m]->MyClick;
  newForm[m]->Show();    void __fastcall TForm1::MyClick(TObject *Sender)
{
  Graphics::TBitmap *bmp=new Graphics::TBitmap;
  int **ImageBuffer;
  SelectImage = m;
  int W = newForm[SelectImage]->Image[SelectImage]->Width;
  int H = newForm[SelectImage]->Image[SelectImage]->Height;
  bmp->Assign(Image1->Picture->Bitmap);
  bmp->Width = W;
  bmp->Height = H;
  bmp->PixelFormat = pf24bit;
  ImageBuffer=new int*[W];      for (int i=0;iImage[SelectImage]->Picture->Bitmap->ScanLine[j];
    for( int i=0; iScanLine[j];
    for( int i=0; iImage1->Picture->Bitmap->Assign(bmp);
  SelectForm->Show();
  delete bmp;
  for (int i=0;i        發表人 - taishyang 於 2004/06/11  18:29:06
        

void __fastcall TForm1::MyClick(TObject *Sender) {   TImage* s=(TImage*) Sender; Graphics::TBitmap *bmp=new Graphics::TBitmap; int **ImageBuffer; int W = s->Width; int H = s->Height; bmp->Assign(Image1->Picture->Bitmap); bmp->Width = W; bmp->Height = H; bmp->PixelFormat = pf24bit; ImageBuffer=new int*[W]; for (int i=0;i ptr = (Byte *)s->Picture->Bitmap->ScanLine[j]; for( int i=0; i

------
︿︿

感謝先進...要開始好好研讀了....