En Delphi 6 kode!

<quote>Hej!

Jeg er netop i gang med at lave et program hvor jeg skal bruge en bestemt kode!

Kodens Function:

jeg vil have programmet til at finde et billede frem når jeg trykker på tast 2 på keybordet, men så vil jeg også have at den henter en nyt billede frem når jeg trykker f.ek. tast 9. Er der en der vil hjælpe mig??

Mvh Kent Andersen</quote>

Vil du bladre i en billedsamling??
Prøv at lægge fil-navnene over i en listbox. Find antallet ved hjælp af listbox1.items.count.
Lav en tæller (integer), du sætter til værdien -1 i form.create, det skal være en global varialel.

Lav en onkeypress i din form:

if key='2' then begin
inc(taeller);
if taeller>listbox1.items.count-1 then taeller:=0;
image1.picture.loadfromfile(expandfilename(listbox1.items[taeller]);
end;
if key='9' then begin
taeller:=taeller-1;
if taeller<0 then taeller:=listbox1.items.count-1;
image1.picture.loadfromfile(expandfilename(listbox1.items[taeller]);
end;

Hvorfor ikke anvende piletasterne??


God arbejdslyst
Jesper Christiansen
jcdata@samtal2000.dk

Hvor ligger dine billeder, og hvilke billeder er det der skal findes frem ? Forklar dig lidt nærmere...

- Thomas

<quote>
jeg vil have programmet til at finde et billede frem når jeg trykker på tast 2 på keybordet, men så vil jeg også have at den henter en nyt billede frem når jeg trykker f.ek. tast 9. Er der en der vil hjælpe mig??
</quote>

En generel måde at gøre det på : Jeg antager du har en form med en TImage på. Denne hedder Image1. Formen har en property 'KeyPreview', denne skal sættes til TRUE.

Derefter skal formens OnKeyPress event udfyldes med følgende :

<pre>
procedure Form1KeyPress(Sender : TObject; Var Key : Char);
begin
case Key of
'0' : Image1.Picture.LoadFromFile('File1.bmp');
'1' : Image1.Picture.LoadFromFile('File2.bmp');
// og så videre
end;
end;
</pre>

Du skal jo så selvfølgelig sætte de rigtige filnavne og stier ind de respektive steder, og vær desuden opmærksom på at, hvis du ikke tilføjer funktionalitet kan du kun vise *.bmp, *.ico
eller *.wmf.

Du skal have fat i udvidelser eller andre komponenter for at kunne vise jpg og gif f.eks.
Først nævnte kan gøres ved tilføje jpeg til uses klausulen øverst i din unit, andre formatter
kræve at du finder udvidelserne selv, på nettet f.eks.

---
Thomas
tdue@mail.dk

Du kan bruge denne kode på din OnKeyPress event<pre>if key = '1' then Image1.Picture.LoadFromFile('C:\\billede001.bmp');</pre>

¤¤¤ Mark H. Jensen ¤¤¤

<quote>Hej!

Jeg er netop i gang med at lave et program hvor jeg skal bruge en bestemt kode!

Kodens Function:

jeg vil have programmet til at finde et billede frem når jeg trykker på tast 2 på keybordet, men så vil jeg også have at den henter en nyt billede frem når jeg trykker f.ek. tast 9. Er der en der vil hjælpe mig??

Mvh Kent Andersen</quote>

Der manglede en linie i min kode i foregående svar!

if key='2' then begin
inc(taeller);
if taeller>listbox1.items.count-1 then taeller:=0;
image1.picture.loadfromfile(expandfilename(listbox1.items[taeller]);
end;
if key='9' then begin
taeller:=taeller-1;
if taeller<0 then taeller:=listbox1.items.count-1;
image1.picture.loadfromfile(expandfilename(listbox1.items[taeller]);
end;

Jesper Christiansen