Saber si un Timage esta vacio

[Vlady]

Hola amigos del foro he buscado esta respuesta en el foro y no la he encontrado asi q mejor pregunto, si tengo un componente TImagen q cargo en tiempo de ejecución como saber cuando este vacio he intentado con
Image1.Picture = nil pero no me ha servido de nada tambien intente con
Image1.Picture = null y tampo si alguien me puede dar una manita

[[maeyanes]]

Hola...

Esto te lo digo de memoria... pero verifica si el objeto TImage tiene una propiedad IsEmpty...


Saludos...

[keyboy]

No estoy seguro. ¿Has intentado con Image1.Picture.Graphic.Empty?

Bye

[[maeyanes]]

Hola...

Iba a editar mi mensaje para actualizar precisamente con la información que te ha dado ya keyboy...

La propiedad que buscas es precisamente: Image1.Picture.Graphic.Empty


Saludos...

[marcoszorrilla]

Es curioso pero este código solamente me funciona si contiene una imagen, en caso contrario me arroja un error.

Código Delphi [-]
if Not Image1.Picture.Graphic.empty then
  ShowMessage('Si contiene  imagen')
  else
  ShowMessage('No contiene ninguna imagen');

Un Saludo.

[keyboy]

Cierto. Al parecer hay que probar entonces con

Código Delphi [-]
if Assigned(Image1.Picture.Graphic) then
  ShowMessage('Si contiene  imagen')
else
  ShowMessage('No contiene ninguna imagen');

Bye

[marcoszorrilla]

Cierto eso si funciona, yo estaba ahora intentando con GetNamePath pero al ver la solución lo he dejado.

Un Saludo.

[Vlady]

Perfecto eso era lo q buscaba muchisimas gracias

[juanlaplata]

otra alternativa ...

Código Delphi [-]
if Image1.Picture.Graphic <> nil then
  ShowMessage('Si contiene  imagen')
  else
  ShowMessage('No contiene ninguna imagen');