如何测试TImage是否分配了图形？

Question

我的程序中的表单上有一个TImage组件。

在某些情况下，程序必须测试：

如果“有一个图像分配给TImage组件的图片属性”那么......

我怎样才能做到这一点？

Answer 1

if Image1.Picture.Graphic = NIL 
then ShowMessage("There is no image.")
else ShowMessage("Image found.");

如果使用位图，您也可以这样做：

if Image.Picture.Bitmap.Empty then ShowMessage("There is no spoon");

Answer 2

迟到总比不到好！ 正确的方法是：

if Assigned(Image1.Picture.Graphic) then ...

Answer 3

你没有说，但我会假设你在谈论德尔福。

您可以通过测试来检查TImage控件中是否存在位图：

if Image.Picture.Bitmap.Width > 0 then
  // do whatever