Zitat von
Mario:
Teste mal
Delphi-Quellcode:
if (Image1.Picture = NIL) or (Image1.Picture.Bitmap = NIL)
then ShowMessage('Bitmap noch nicht initalisiert!')
else ImageList1.GetBitmap(0,Image1.Picture.Bitmap);
Wenn sich es dann immer noch aufhängt, wars das nicht. Falls Du eine Meldung siehst, ist Deine Bitmap einfach noch nicht initialisiert.
Würde dies nicht eine Zugriffsverletzung geben, wenn <Image1.Picture> auf <nil> steht?
Du würdest in Deiner Abfrage nämlich versuchen, auf <Image1.Picture.Bitmap> zuzugreifen, obwohl
Image1.Picture NIL sein könnte, oder?
Vielleicht so:
Delphi-Quellcode:
if (Image1.Picture <> NIL) then
if (Image1.Picture.Bitmap <> NIL) then
// tue was mit dem Bitmap
Nach Bedarf noch die beiden Else-Zweige abarbeiten.