动态创建对象的问题？？？

Question

我写下面语句为什么没有图片显示？aa.bmp是一张图片。
procedure TMainForm.N1Click(Sender: TObject);
var
  img:TImage;
begin
  img:=TImage.Create(application);
  img.Visible:=true;
  img.Picture.LoadFromFile('e:\aa.bmp');
end;请问有什么问题？？？

Answer 1

首先好象img的位置大小没有设置

Answer 2

Image1.Parent 属性需要设置。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  img:TImage;
begin
  img:=TImage.Create(application);
  img.Parent := Form1;//-----
  img.Top := 100;
  img.Left := 200;
  img.Picture.LoadFromFile('e:\aa.bmp');
  img.Visible:=true;
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  img:TImage;
begin
  img:=TImage.Create(application);
  img.width:=1000;
  img.Height:=500;
  form1.InsertControl(img);
  // img.parent:=form1;    The second method
  //img.Visible:=true;  // Default value
  img.Picture.LoadFromFile('C:\Documents and Settings\Administrator\My Documents\My Pictures\a.bmp');
   img.BringToFront ;
end;

Answer 5

procedure TForm1.Button4Click(Sender: TObject);
var
  img:TImage;
begin
  img:=TImage.Create(self);
  img.Parent := self;
  img.SetBounds(100,100,300,300);
  img.Picture.LoadFromFile('e:\aa.bmp');
end;