Question

delphi 动态创建的image如何释放

Answer 1

如果动态创建了单个 TImage ，那么可以直接使用 free 来释放，如下所示:

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

  img.Picture.LoadFromFile('e:\1112.bmp');

  img.Left := 176;
  img.Top := 240;
  img.Width := 300;
  img.Height := 300;
  img.Stretch := True;

  img.Free;
end;

如果是动态创建了多个 Image，可以通过遍历 Controls 属性，并检查是否是 TImage，然后动态释放：

procedure TForm1.btn1Click(Sender: TObject);
var i: Integer;
begin
  for i := ControlCount-1 downto 0 do
  begin
    if Controls[i] is TImage then
      Controls[i].Free;
  end;
end;