Mehrere Shockwave Animationen hintereinander abspielen.

[smartmod]

Hmm,

ich blick da irgendwie nicht so wirklich durch.

Ich hab jetzt mal folgendes hingekritzelt aber da tut sich gar nix:

Delphi-Quellcode:

procedure TForm2.ShockwaveFlash1Progress(ASender: TObject;
  percentDone: Integer);
begin
  Label6.Caption := Format('%.2d',[ShockwaveFlash1.CurrentFrame / ShockwaveFlash1.TotalFrames * 100]);
  If ShockwaveFlash1.CurrentFrame = ShockwaveFlash1.TotalFrames then
    begin
    if i+1 < FileListBox1.Count then
      begin
      inc(i);
      if i+1 = FileListBox1.Count then
        begin
        Button2.Enabled := false;
        end;
      counter := IntToStr(i);
      Movie := path+FileListBox1.Items[i];
      ShockwaveFlash1.Stop;
      ShockwaveFlash1.Movie := Movie;
      ShockwaveFlash1.Play;
      Label3.Caption := IntToStr(i+1);
      end;
    end;
end;