Comment tester si un Timage contient une image

Bonjour,

Je travaille sous delphi, je voulais savoir comment tester si l'objet TImage contient une image, voilà mon code

Code:

---

1 2 3 4 5

procedure TAutoFlash.Image1Click(Sender: TObject); begin If Image1.Picture=nil then showmessage('Vide') else showmessage('Plein'); end;

---

mais le problème, même si le TImage contient une image, il me m'affiche "Vide"
y a peut être quelque chose qui m'a échappé, si quelqu'un a une idée, merci de me renseigner

Code:

---

1 2 3 4

If (Image1.Picture = nil) or (Image1.Picture.Graphic = nil) or (Image1.Picture.Graphic.Empty) then showmessage('Vide') else showmessage('Plein');

---

Si ça fonctionne pas, essaye de lire les dimensions du Canvas

Merci ça marche nikel.... je suis contente! :)