Wo liegt das Problem
Du nimmst ein (kleines) TImage.
Wenn du einen bestimmten Ordner hast, in dem die Bilder sind, dann gibts zwei möglichkeiten an die Dateinamen zu kommen: Entweder mit
FINDFIRST und
FINDNEXT, oder du machst es dir ganz einfach und nimmst die TFileListBox aus der Registerkarte "Win 3.1".
Wenn die Bilder für deine Slideshow z.B. im Verz. c:\Bilder\ liegen, dann stellst du als Directory das ein.
Dann nimmst du eine globale Zählvariable. Für den Bildwechselbutton kannst du z.B. den Code nehmen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| var
Form1 : TForm;
bildnummer : integer = 0;
[...]
procedure Tform1.Create(Sender: TObject);
begin
filelistbox1.directory := 'c:\bilder\'
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(bildnummer); image1.picture.loadfromFile(filelistbox1.directory +
filelistbox1.items[bildnummer])
end;
procedure groesseranzeigen;
var zoompicture : TImage;
begin
ZoomPicture := Timage.Create(form1);
Zoompicture.SetBounds(0,0, width, height);
zoompicture.parent := form1;
zoompicture.image := image1.picture;
zoompicture.stretch := true;
end; |
so in der richtung musst du das machen. Der Code ist btw. nicht copy&paste geeignet. Aber es sollte jetzt ein leichtes für dich sein das noch selbst hinzu bekommen
Tino
