P.S: Nur nochmal zur Info. Die Bitmaps sollen aus einer Datei heraus in die MultiResBitmap geladen werden. Also nicht über den Editor hinzugefügt werden, sondern über den Code.
Dann ist die MultiResBitmap zu diesem Zeitpunkt noch leer? In dem Fall musst du erstmal die einzelnen Bitmaps erzeugen. Vielleicht helfen dir diese drei Methoden weiter:
Delphi-Quellcode:
procedure TForm27.AddBitmap(const AFileName: string; AScale: Single);
var
itm: TFixedBitmapItem;
begin
itm := Image1.MultiResBitmap.Add;
itm.Scale := AScale;
LoadBitmap(itm, AFileName);
end;
procedure TForm27.ChangeBitmap(AIndex: Integer; const AFileName: string);
begin
LoadBitmap(Image1.MultiResBitmap[AIndex], AFileName);
end;
procedure TForm27.LoadBitmap(AItem: TFixedBitmapItem; const AFileName: string);
var
bmp: TBitmap;
begin
bmp := AItem.CreateBitmap(AFileName);
try
AItem.Bitmap.Assign(bmp);
finally
bmp.Free;
end;
end;