Würfel Schleifenproblem

[ChristianR]

Guten Tag,
Habe ein kleines Problem und zwar habe ich einen Würfel Programmiert. Wenn ich jetzt auf den Button Würfel klicke soll sich der Würfel z.B. 20Mal ändern und dann stehen bleiben. Habe das jetzt mit einer For-Schleife realisiert, aber er zeigt den Würfel nur genau 1mal an und zwar den von dem letzen Schleifendurchlauf. Wie bekomme ich das hin, das der Würfel nach jedem Schleifendurchgang erneuert wird? Vielen Dank schonmal für eure Hilfe.
Christian

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,zufall: Integer;
  bilderarray: array[1..6] of string;

begin

bilderarray[1] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\1.bmp';
bilderarray[2] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\2.bmp';
bilderarray[3] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\3.bmp';
bilderarray[4] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\4.bmp';
bilderarray[5] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\5.bmp';
bilderarray[6] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\6.bmp';

for i := 0 to 20 do
begin
zufall := Random(6)+1;
randomize;
Image1.Picture.LoadFromFile(bilderarray[zufall]);
sleep(500);
end;
end;

[alleinherrscher]

Setz mal hinter das Loadimage ein Image1.picture.refresh; und am besten noch ein Application.processmessages, damit das Programm während des Würfelns noch reagiert.

Grüße,
Michael

[Sharky]

Hai Christian,

grundsätzlich darf Randomize nur einmal im Programm Aufgerufen werden. Am besten im Formcreate.

[guinnes]

1. Das Randomize ist an einer ganz falschen Stelle. Es gehört z.B. ins FormCreate und sollte genau ein mal pro Start der Application ausgeführt werden
2. Gib Windows die Gelegenheit, dein Bild auch anzuzeigen ( Application.ProcessMessages )

[ChristianR]

Danke für die schnelle Hilfe. Hat alles bestens geklappt! Danke