Afspiller film igen og igen (loop = uendelig)

og kan man få filmen til at tilpasse sig det Panel den er i?

Nedenstående er i en TTimer !

var
  Length, Pos: LongInt;

        Length := MediaPlayer1.Length;
        Pos := Mediaplayer1.Position;
        if CBRepeat.Checked then
          if Pos >= Length then
            with MediaPlayer1 do begin
              Stop;
              Play;
              EnabledButtons := [btStop];
            end;

Det er bare lige kopieret ud fra noget eksisterende kode fra et af mine programmer, så det skal nok lige tilpasses lidt. CBRepeat er en TCheckbox !

Snowball

Ved ikke hvilken film type der er snakke om, men du kunne måske bruge TAnimate on Win32 tapen den kører avi filer.

Så sparer du en timer :)

DKN> det med Animate virker finO....