delphi 在运行时从 TImage 中删除图像

在运行时从 TImage 中删除图像

在设计时操作TImage时，非常容易，因为我们在图片( TPicture ) 属性中有图片编辑器，它允许我们加载、删除、修改其他一些特性。

但是有一天，在几年前的一个项目中，您应该从TImage 中删除一个图像，但乍一看并没有命令可以执行此操作。

我尝试了多种方法，并且大多数时候解决方案比实际容易得多。

我不会骗你，我花了几个小时解决这个问题，直到我想到尝试另一种方法，即将Picture属性设置为nil，并且它起作用了。

我共享一个函数，如果TImage有图像，则返回 True，否则返回False，但无论如何它将Picture属性设置为nil，即它删除图像。

Uses

  Vcl.StdCtrls, Vcl.ExtCtrls;

...

function EliminarImagen(vImage: TImage): boolean;

begin

  Result := (vImage.Picture = nil);

  vImage.Picture:=nil;

end;