delphi - TImageにグラフィックが割り当てられているかどうかをテストするにはどうすればよいですか？

Question

プログラムのフォームにTImageコンポーネントがあります。

状況によっては、プログラムは以下をテストする必要があります。

「TImageコンポーネントのpictureプロパティに割り当てられた画像がある」場合は...

これどうやってするの？

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

あなたは言いませんが、Delphi について話していると思います。

次のテストで、TImage コントロールにビットマップがあるかどうかを確認できます。

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