procedure TForm1.Button1Click(Sender: TObject); var Image1 :timage; begin Image1 := timage.Create(nil); Image1.Parent := self; // 必须指定Parent才能显示出来 Image1.Left := 0; Image1.top := 0; Image1.Width := 100; Image1.Height := 100; Image1.Picture.LoadFromFile('Blue hills.bmp'); image1.SetBounds(image1.Left,image1.Top,image1.Picture.Width,50); //修改TImage1框的大小要用SetBounds Image1.Show; end;