Bildershow mit JvGIFAnimator oder TImage

[c4t]

Hm, also ich bin auch noch ein ziemlicher "newbee", was Delphi anbetrifft. Aber ich versuch's mal.

Also ich würde dir raten, den Wert der Eigenschaft Picture von TImage in eine Variable zu legen und deine Bilder durch zu nummerieren.

Dann machst du ein Button:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

bild:=bild+1; // die nummer des Bildes weiterzählen
filename:=inttostr(bild); // zurück in ein String umwandeln
Image1.Picture:=filename; // zuweisen
end;

Insgesamt sieht es dann so aus:

Delphi-Quellcode:

var
  Form1: TForm1;
  filename:string;
  bild:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

bild:=bild+1;
filename:=inttostr(bild)+'.jpg';
Image1.Picture:=filename;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
filename:=inttostr(bild)+'.jpg';
bild:=1;
end;

end.

Ich habs selber nicht ausprobiert, aber ich glaube es so sollte so funktionieren. Vorausgesetzt deine Bilder heißen immer 1.jpg, 2.jpg usw ...

Nach dem klick auf den Button sollte dann das nächste Bild erscheinen. Achso, die Bilder müssen auch in dem gleichen Ordner wie das Delphi Project liegen.

---

ähm, könnte einer von den Leuten, die einwenig mehr Ahnung haben, meine idee nochmal überprüfen? Danke.