Graphics::TBitmap *bmpSrc=new Graphics::TBitmap;
Graphics::TBitmap *bmpDst=new Graphics::TBitmap;
int newW,new2W;
newW = StrToInt(Edit1->Text);
new2W = StrToInt(Edit2->Text);
bmpDst->PixelFormat = pf24bit;
bmpSrc->PixelFormat = pf24bit;
bmpDst->LoadFromFile(OpenPictureDialog1->FileName);
bmpDst->Width=new2W;
bmpDst->Height=480;
SetStretchBltMode(bmpDst->Canvas->Handle, STRETCH_HALFTONE);
bmpDst->Canvas->CopyMode=cmSrcCopy;
bmpDst->Canvas->CopyRect(Rect((int)newW, 0, (int)newW (int)new2W, 480), bmpSrc->Canvas,Rect((int)newW, 0, (int)newW (int)new2W, 480));
delete bmpDst;
delete bmpSrc;
Image2->Picture->Assign(bmpSrc);

我主要是要將IMAGE1的影像藉由Edit1(擷取位置)、Edit2(擷取寬度)的輸入至IMAGE2

IMAGE1是640*480 IMAGE2是想要擷取Edit1與Edit2的影像，高都是480

不知我上面的程式碼可以嗎？

我按START都沒反應, 在IMAGE2都沒顯示圖像

不知上述我還欠缺哪些東東

請各位大大提供一些吧！！～～

謝謝

試試看這樣寫會不會簡要一點:

========================================

TRect R1, R2;

// 讀取使用者輸入的截取位置 (X 座標)
int x = Edit1->Text.ToIntDef(0);

// 讀取截取的寬度
int w = Edit2->Text.ToIntDef(Image2->Width);

// Image1 的範圍
R1 = TRect(x, 0, x Image2->Width, Image2->Height);

// Image2 的範圍
R2 = TRect(0, 0, Image2->Width, Image2->Height);

// 清除 Image2 的圖
Image2->Picture = NULL;

// 在 Image2 的範圍內畫 Image1 範圍內的圖
Image2->Canvas->CopyRect(R2, Image1->Canvas, R1);

====================================================

當然, Image1 必需先要有圖, 你可以使用 LoadFromFile, LoadFromStream,

或其它方法將 Iamge1 的圖 Assign 進來.