trackbar1.Max:=image1.Picture.Height;
   MyRect:=Rect(0,0,image2.Width,trackbar1.Position);
   image1.Width := MyRect.Right;
   image1.Height := MyRect.Bottom;
   image1.Canvas.CopyRect(image1.ClientRect, image2.Canvas,MyRect);
两个图片,根据控制条的位置。考一个图相应的位置大小的图片到另一个相应的位置,而且我想从下到上显示,问题在那里啊?///
但是后退回来,图象没有变化 /////?????