Zufallsbilder erstellen

[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