Hey alle zusammen!
Ich weiß das etwas ähnliches erst kürzlich im Forum gepostet worden ist, doch da ich ein blutiger Anfänger bin, mache ich trotz genauer Studien der Antworten noch irgendwas Falsch. Über jeden hinweis würde ich mich Freuen! Das ganze sieht bei mir wie folgt aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var fImages: array of TImage;
i: integer;
bitmap: tbitmap;
begin
if opendialog1.execute then
begin
bitmap:= tbitmap.Create;
image1.Picture.Graphic:= bitmap;
image1.Picture.Bitmap.LoadFromFile(opendialog1.filename);
fimages[i]:= image1;
setlength(fimages,i);
end;
end;
Leider gibt es keinen kotzenden Smily doch der
drückt es schon ganz gut aus!
gruß Brandtson