Bitmap von ImageList laden ?

[Klaus01]

Delphi-Quellcode:

try
  try
    Live := TBitmap32.Create;
    case Image321.Tag of
      0:  Live.LoadFromResourceName(HInstance, 'Einbruch');
      1:  Live.LoadFromResourceName(HInstance, 'Brand');
      2:  Live.LoadFromResourceName(HInstance, 'TK');
      3:  Live.LoadFromResourceName(HInstance, 'IT');
      4:  Live.LoadFromResourceName(HInstance, 'Kosten');
      5:  Live.LoadFromResourceName(HInstance, 'Lichtruf');
      6:  Live.LoadFromResourceName(HInstance, 'Video');
      7:  Live.LoadFromResourceName(HInstance, 'Zeit');
      8:  Live.LoadFromResourceName(HInstance, 'Zutritt');
      9:  Live.LoadFromResourceName(HInstance, 'Planung');
     10:  Live.LoadFromResourceName(HInstance,'Erfolg');
    end;
    //Image321.Bitmap := Live;  // Adresse zugewiesen
    Image321.Bitmap.assign(Live);  // versuche es mal mit Inhalt zuweisen
  except
    Exit;
  end;
  finally
    Live.Free;              // freigegeben
    Image321.Tag := Image321.Tag + 1;
  end;
end;

Grüße und schöne Festtage
Klaus