Må du aflevere en zip fil til din lærer, hvor der ligger en exe-fil og en mappe med billeder? (Det skal lige siges at image objectet ikke kan åbne jpg-filer, i hvert fald ikke hvad jeg ved af)
Hvis du må det, kan du lave en mappe, der hedder billeder og inde i den lave 9 undermapper med 2 billeder i hver.. billederne i undermapperne hedder så 1 og 2. og undermapperne hedder 1 , 2, 3, ... op til 9.
Med hensyn til de to billeder du postede, så kunne du gøre det at, når man har trykket på næste bliver næste knappens visible property sat til false, og forrige knappens visible property sat til true og omvendt.
Har bikset lidt kode sammen
hvertime-knappen gør det, som der skal gøres, hver gang der er gået en time.
Du skal lave 3 knapper med name-propertien til "forrige", "hvertime" og "naeste"
Og et image object med name image1
VAR
saetnr: integer;
procedure TForm1.hvertimeClick(Sender: TObject);
begin
saetnr:=saetnr+1; (*ligger en til saetnr så der vises et nyt sæt*)
if saetnr = 10 then (*når der er vist 9 saet sættes saetnr atter til 1*)
saetnr:= 1;
image1.picture.bitmap.loadfromfile('billeder\\'+inttostr(saetnr)+'\\1.bmp');
forrige.visible:=false;
naeste.visible:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
saetnr:=0; (*sætter start værdien af saetnr og sørger for at forrige-knappen er usynlig*)
forrige.visible:=false;
end;
procedure TForm1.naesteClick(Sender: TObject);
begin
image1.picture.bitmap.loadfromfile('billeder\\'+inttostr(saetnr)+'\\2.bmp');
forrige.visible:=true; (*gemmer naeste knappen og viser forrige kanppen*)
naeste.visible:=false;
end;
procedure TForm1.forrigeClick(Sender: TObject);
begin
image1.picture.bitmap.loadfromfile('billeder\\'+inttostr(saetnr)+'\\1.bmp');
forrige.visible:=false; (*gemmer forrige knappen og viser naeste kanppen*)
naeste.visible:=true;
end;
Håber du kan gennemskue det, hvis ikke kan jeg uploade det til en side, så du kan se det.