I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Jeg er ikke helt sikker på, om det er det her, du mener, men du kunne prøve:
Du skal have en "filelistbox1", et "image1" og en "Timer1" på din form for at følgende virker:
procedure TForm1.FormCreate(Sender: TObject); begin randomize; filelistbox1.Directory:='c:\billeder'; //stien til dine *.bmp billeder end;
procedure TForm1.Timer1Timer(Sender: TObject); begin if random<0.1 then //Sandsynlighed på 10% for at et nyt billede bliver åbnet når timeren kaldes begin image1.Picture.LoadFromFile(filelistbox1.Items[random(filelistbox1.Items.Count)]); //indsætter et tilfældigt billede fra mappen end; end;
Programmet loader et tilfældigt billede fra mappen "c:\billeder" på et tilfældigt tidspunkt ind i image1. Der må KUN ligge *.bmp filer i mappen.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.