Prüfen welches bild gerade in TImage angezeigt wird.

[bitsetter]

Noch eine andere Variante:

Delphi-Quellcode:

  if Image1.Picture.Graphic is TBitmap then
    ShowMessage('TBitmap')
  else
    if Image1.Picture.Graphic is TJpegImage then
      ShowMessage('TJpegImage');