Zufallsbilder erstellen

[Sir Rufo]

Zitat von DelphiMini:

Erstelle doch einfach eine ImageList und mach die Bilder da rein.
(Doppelklick auf die TImageList)

Schreib dann zum zufälligen auswählen einfach:

Delphi-Quellcode:

var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    ImageList1.GetBitmap(random({Maximalanzahl der Bilder}), Bitmap);
    Image1.Picture.Bitmap := Bitmap;
  finally
    FreeAndNil(Bitmap);
  end;

Bis Bald

Und das funktioniert?

Erst die Referenz-Übergabe Image1.Picture.Bitmap := Bitmap; und dann die Referenz wieder wegschmeißen FreeAndNil(Bitmap); ?