关于复制image控件中的图像问题?谢谢

Question

已将图像装入到image1控件中了，现在我想动态生成一个图像数组，数组成员的
的图像都是image1的，怎么实现？var m_imgArr: array of timage;
begin
  setlength(m_imgArr,4);
  m_imgArr[0] := Timage.Create(panel5);
  {这里如何实现拷贝image1中的图像到m_imgArr[0]中}//m_imgArr[0].Picture := image1.Picture;
  m_imgArr[0].Visible := true;end;

Answer 1

m_imgArr[0].Picture := image1.Picture;
这样不行吗？出错？

Answer 2

偶试了，这样ok的procedure TForm1.Button1Click(Sender: TObject);
var m_imgArr: array of timage;
begin
  setlength(m_imgArr,4);
  m_imgArr[0]:= Timage.Create(Form1);
  m_imgArr[0].Canvas.Draw(0,0,Image1.Picture.Bitmap);
  m_imgArr[0].Parent:=Form1;
  m_imgArr[0].Top:=0;
  m_imgArr[0].Left:=0;
  m_imgArr[0].Visible := true;
end;