Hallo!
Herzlich willkommen in der
DP!
Mal auf die Schnelle:
Delphi-Quellcode:
var
Form1: TForm1;
i: integer = 1;
//Zählvariable mit Anfangswert 1
implementation
{$R *.dfm}
//Im OnCreate zum Beispiel das Intervall festlegen, nachdem die Bilder gewechselt
//werden sollen. Bsp:
//
// Timer1.Intervall := 2000; // in Millisekunden (hier: 2 Sek)
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Bild laden (die Dateinamen lauten hier 'Bild1.bmp', 'Bild2.bmp', ...
//Für Jpg-Bilder ganz oben die Unit 'JPEG' aufnehmen ( uses ... , JPEG; )
Image1.Picture.LoadFromFile('
c:\Bild' + IntToStr(i) + '
.bmp');
//---------------------------------------------------------------------------------
//Falls du andere Dateinamen ohne Zahlen verwenden möchtest, musst du das Bild so laden
//und nicht, wie oben beschrieben:
case i
of
1: Image1.Picture.LoadFromFile('
c:\haus.bmp');
2: Image1.Picture.LoadFromFile('
c:\baum.bmp');
3: Image1.Picture.LoadFromFile('
c:\apfel.bmp');
4: Image1.Picture.LoadFromFile('
c:\birne.bmp');
end;
//---------------------------------------------------------------------------------
inc(i);
//Zählvariable erhören
if i = 5
then //bei 4 Bildern (ein 5. Bild gibt's ja nicht, also zurück zu Bild 1)
i := 1;
end;
Das ist so ausführlich, weil du sagtest, du seist Anfänger. Falls das alles für dich selbstverständlich war, einfach die Kommentare überlesen.
