怎么动态生成TImage控件且在Form中显示出来？

[magicmouse]

我动态生成了一个TImage控件，但在Form中看不到图形，这是怎么回事？

代码大致如下：

...
public:
Image3: TImage;
.....

procedure TForm1.Button2Click(Sender: TObject);
begin
Image3:= TImage.Create(Form1);
Image3.Left:=10;
Image3.Top:=10;
Image3.Width := 79;
Image3.Height:= 100;
ImageList1.GetBitmap(0,Image3.Picture.Bitmap);
Image3.Refresh;
end;

图像列表中已经加入了图，但按下Button2,没有图显示出来，Why?

[firetoucher]

加上
Image3.Parent:=form1;

[lxl]

var image3 : timage;
begin
Image3:= TImage.Create(Form1);
image3.parent:=form1;
Image3.Left:=10;
Image3.Top:=10;
Image3.Width := 79;
Image3.Height:= 100;
ImageList1.GetBitmap(0,Image3.Picture.Bitmap);
Image3.Refresh;
end;

[cnssk]

Image3.Parent:=form1;

[FrameSniper]

一个控件的Parent属性指定的父负责这个控件显示

一个控件的构造函数中指定的Owner负责这个控件的销毁