Hi,
ich will mit einen Button 6 Images per Zufallsgenerator mit der Augenzahl eines Würfels füllen. Diese 6 Augenzahlen habe ich in einer ImageList. Beim Klicken wird folgender Code ausgefüht:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
ImageList1.GetBitmap(Random(5), Image2.Picture.Bitmap);
ImageList1.GetBitmap(Random(5), Image3.Picture.Bitmap);
ImageList1.GetBitmap(Random(5), Image4.Picture.Bitmap);
ImageList1.GetBitmap(Random(5), Image5.Picture.Bitmap);
ImageList1.GetBitmap(Random(5), Image6.Picture.Bitmap);
ImageList1.GetBitmap(Random(5), Image7.Picture.Bitmap);
end;
Beim 1. Mal klappt es auch, doch dann beim 2. Mal tut sich nix mehr!
Könnt ihr mir vielleicht bei meinem Problem helfen?
MfG Matthias Volland