Как проверить, есть ли у TImage графический объект?

Question

В моей программе есть компонент TImage на форме.

В некоторых ситуациях программа должна проверить:

Если "для свойства picture компонента 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

Вы не говорите, но я предполагаю, что вы говорите о Delphi.

Вы можете проверить наличие растрового изображения в элементе управления TImage, протестировав:

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