Hi!
Also ich habe schon ein bißchen gesaucht aber leider noch nicht gefunden
Obwohl es ziemlich einfach klingen mag!
Ich lade bei dem Ereignis OnClick in 8 TImage Komponenten ein JPG Bild ein, das sieht folgendermaßen aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| Case z of
0 : Image1.Picture.LoadFromFile('c:\dvdcover\card1.jpg');
1 : Image1.Picture.LoadFromFile('c:\dvdcover\card2.jpg');
2 : Image1.Picture.LoadFromFile('c:\dvdcover\card3.jpg');
3 : Image1.Picture.LoadFromFile('c:\dvdcover\card4.jpg');
4 : Image2.Picture.LoadFromFile('c:\dvdcover\card5.jpg');
5 : Image2.Picture.LoadFromFile('c:\dvdcover\card6.jpg');
end; |
Soweit so schön.
Jetzt möcht ich aber, dass er bei nächsten Mal, wenn ich auf den Button klicke die Bilder wieder löscht und die neuen, die per Zufallsgenerator ausgewählt wurden nimmt und nicht noch die alten zu sehen sind. Habe es schon mit Free etc. probiert, mag der Compiler aber nicht.
Danke schonmal!
autotuner
