Standardmäßig hat das Multiresbitmap bereits ein Bitmap drin. Man kann dann prüfen ob es einen Inhalt hat und wenn ja, nur dann eine Bitmap hinzufügen.
Hier ist der Code, wie man z.B. über einen Opendialog eine Bitmap hinzufügt.
Delphi-Quellcode:
procedure TForm62.Button1Click(Sender: TObject);
begin
if od1.Execute then begin
if Image1.MultiResBitmap.Items[Image1.MultiResBitmap.Count-1].Bitmap.isempty = false then
Image1.MultiResBitmap.Add;
Image1.MultiResBitmap.Items[Image1.MultiResBitmap.Count-1].Bitmap.loadfromfile (od1.FileName);
end;
end;
Ich habe mal eine Demo angehängt, womit man mehrere Grafikdateien nacheinander in eine Multiresbitmap laden kann. Die Transparenz bleibt erhalten. Wenn man auf die Listbox links unten auf einen Eintrag klickt, wird in Image2 das jeweilige Bitmap aus Image1 angezeigt.