Question

Delphi中动态创建一个TImage控件，如何载入需要显示的图片？

Delphi中动态创建一个TImage控件，其中需要显示的的图片的绝对地址是C:/test.jpg
该如何写这个代码？
...
var
newImage ：TImage；
....
newImage := TImage.Create(Self);
newImage.Picture.LoadFromFile := //这段如何写？（另外，是要用LoadFromFile么？）~~~
谢谢~~

Answer 1

newImage := TImage.Create(Self);
newImage.Parent := Form1; //定义它的父窗体
newImage.Picture.LoadFromFile('C:/test.jpg');
newImage..........................//后面可以继续修改newImage的属性

Answer 2

示例参考代码如下：

提示：Image 控件，如果要载入 JPEG 图像，需要：uses Vcl.Imaging.jpeg;

procedure TForm1.btn1Click(Sender: TObject);
var img: TImage;
begin
  img := TImage.Create(Self);

  img.Parent := Self;
  img.Stretch := True;
  img.Left := 8;
  img.Top := 8;
  img.Width := 400;
  img.Height := 300;

  img.Picture.LoadFromFile('d:\test.jpg');
end;

Answer 3

newImage.Picture.LoadFromFile('C:/test.jpg');