Einzelnen Beitrag anzeigen

c4t

Registriert seit: 24. Dez 2003
24 Beiträge
 
Delphi 6 Enterprise
 
#2

Re: Bildershow mit JvGIFAnimator oder TImage

  Alt 24. Dez 2003, 21:19
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.
  Mit Zitat antworten Zitat