void _fastcall TForm1::Button1Click(TObject *Sender) { int i,left,top,width,height. left = Image1->Left. top = Image1->Top. width = Image1->Width. height = Image1->Height. for (i = 0. i <= width. i ){ //通过图像的坐标选定图像的一部分 Image1->Left = left (width - i)/2. Image1->Top = top height/2 - i*height/width/2. Image1->Width = i. Image1->Height = i*height/width. Image1->Refresh(). } }