大家帮忙看看这段代码，停在第7行了。

Question

01 procedure TForm1.BitBtn1Click(Sender: TObject);
02 var
03   picmo:tmemorystream;
04 begin
05   picmo:=tmemorystream.Create ;
06   image1.Picture.Graphic.SaveToStream(picmo);
07   image2.Picture.Graphic.LoadFromStream(picmo);
08   picmo.Destroy;
09 end;

Answer 1

image2.picture.graphic := image1.picture.graphic就可以实现你的功能了

Answer 2

image1.Picture.Bitmap.SaveToStream(picmo);
  image2.Picture.Bitmap.LoadFromStream(picmo);

Answer 3

在第7行前添加如下语句：
picmo.Position := 0;

Answer 4

楼上正确!但这样做很麻烦!older(疲倦的程序员) 的方法更好,但不提倡直接赋值,这样更好:
image2.picture.assign(image1.picture);

Answer 5

POSITION:=0的话我这边也一样会出错，还是停在第8行，会不会和我使用WINDOW2000有关系？

Answer 6

看来还有一问题!image2.Picture.Graphic:=TJPEGImage.Create;
image2.Picture.Graphic.LoadFromStream(picmo);如果是Bitmap改为:image2.Picture.Graphic:=TBitmap.Create;
image2.Picture.Graphic.LoadFromStream(picmo);

Answer 7

还是不行喔  ：（全部代码：procedure TForm1.BitBtn1Click(Sender: TObject);
var
  v_pic:tmemorystream;
begin
  v_pic:=tmemorystream.Create ;
  image1.Picture.Graphic.SaveToStream(v_pic);
  image2.Picture.Graphic:=tbitmap.create;
  image2.picture.Graphic.LoadFromStream(v_pic);
  v_pic.Free;
end;

Answer 8

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  v_pic:tmemorystream;
begin
  v_pic:=tmemorystream.Create ;
  image1.Picture.Graphic.SaveToStream(v_pic);
  v_pic.Position:=0;
  image2.Picture.Graphic:=tbitmap.create;
  image2.picture.Graphic.LoadFromStream(v_pic);
  v_pic.Free;
end;说了后面就忘前面怎么可以?

Answer 9

ehom,请你帮我洗洗脑，这句话是什么意思呢？image2.Picture.Graphic:=tbitmap.createGraphic也要初始化吗。